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GENERAL  INFORMATION 


The  software  package  for  the  Passive  Target  Acquisition  Program  2  (PTAP-2)  is 
specifically  constructed  for  the  Hewlett-Packard  (HP)  QR25A  microcomputer  with 
24000  byte  extended  memory.  Required  also  are  three  read  only  memory  inserts 
(RCM) .  These  RCM  are: 

1.  9872  plotter  -  general  I/O  -  extended  I/O 

2.  tetrix 

3.  String  variable  -  advanced  programmi  ng 

Eight  separate  programs  with  adjuncts  are  stored  sequentially  in  32  files. 
The  basic  program  set  occurs  on  track  zero,  while  a  redundant  set  is  stored  on 
track  one  to  serve  as  a  protection  against  time  loss  due  to  tape  failure,  or 
to  extend  operating  capability  to  two  different  sensor  configurations.  In 
sequential  order,  the  files  contain: 


Fi  1 e  No. 


Fi  1  e  Content 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 


Index  file 
Blank  file 

Sound  ranging  program  file 

Sound  ranging  special  function  key  storage 

Effective  wind  and  temperature  for  sound  ranging 

Sound  ranging  microphone  coordinate  storage 

Number  of  sound  ranging  targets  stored 

Sound  ranging  target  storage 

Sound  on  sound  adjustment  program 

Special  function  key  storage  for  sound  on  sound 

Effective  wind  and  temperature  for  sound  on  sound 

Sound  on  sound  microphone  coordinate  storage 

Visual  meteorology  program 

Special  function  key  storage  for  visual  met 

Flash  ranging  program 

Flash  ranging  special  function  key  storage 
Flash  ranging  observation  post  (OP)  coordinate 
storage 

Flash  ranging  target  number 

Flash  ranging  target  storage 

Flash  adjustment  program 

Flash  adjustment  special  function  key  storage 

Flash  adjustment  OP  coordinate  storage 

Laser  rangefinder  program 

Laser  rangefinder  special  function  key  storage 

Laser  rangefinder  OP  coordinate  storage 

Laser  rangefinder  target  number 

Laser  rangefinder  target  storage 

Laser  rangefinder  adjustment  program 

Laser  rangefinder  adjustment  special  function 

key  storage 

Laser  rangefinder  adjustment  OP  coordinate  storage 


File  No. 


Fi  1  e  Content 


30  Laser  rangefinder  trilateration  program 

31  Laser  rangefinder  trilateration  special 

function  key  storage 

Redundancies  in  file  structure  such  as  files  3  and  9,  4  and  10,  and  15  and  20 
are  employed  to  lessen  tape  wear  and  transport  time  and  hence  to  reduce  the 
possibility  of  tape  failure. 


Eight  basic 

programs 

are  available 

in  PTAP-2;  these  are,  in  order  of 

occurrence  on 

File  No. 

file: 

Program  No. 

Program 

2 

1 

Sound  ranging 

8 

2 

Sound  on  sound  adjustment 

12 

3 

Visual  meteorology 

14 

4 

Flash  ranging 

19 

5 

Flash  adjustment 

22 

6 

Laser  rangefinder 

27 

7 

Laser  rangefinder  adjustment 

30 

8 

Laser  rangefinder  trilateration 

The  functions  of  programs  1,  4,  and  6  are  the  location  and  storage  of 
targets.  In  these  programs,  coordinates  and  time  of  location  are  recorded  for 
up  to  100  targets.  Automatic  transfer  to  tape  occurs  when  10  or  a  multiple  of 

10  targets  are  located.  If  more  than  100  targets  are  found,  the  100  most 

recent  are  retained  and  stored.  Storage  also  occurs  automatically  when  a 
transfer  is  made  from  a  location  progran  to  any  other  program  in  PTAP-2.  When 
the  PTAP-2  is  in  a  specific  location  mode,  all  targets  recorded  in  that  mode 
may  be  reviewed  via  a  printed  list  containing  time  of  location  and  target 
coordinates.  Certain  essential  data  necessary  for  operation  in  the  target 
mode  are  automatically  stored  on  entry  so  that  rapid  conversion  from  location 

to  fire  adjustment  and  vice  versa  is  possible.  Specific  details  will  be 

supplied  when  programs  are  discussed  individually. 

The  purpose  of  programs  2,  5,  and  7  is  the  adjustment  of  fire.  In  the  adjust¬ 
ment  mode,  no  targets  are  recorded,  although  individual  printouts  of  target 
information  are  supplied.  All  adjustment  programs  function  in  two  cycles. 
The  first  cycle  is  concerned  with  target  location;  the  second  cycle  fixes  the 
Impact  of  an  incoming  round  and  supplies  shift  information  to  adjust  fire  onto 
the  target.  If  an  incoming  round  is  found  to  be  100  meters  or  less  from  the 
target,  the  program  calls  for  "fire  for  effect"  and  returns  to  await  the  next 
target.  It  might  be  observed  that  in  sound  and  flash  adjustment,  no  operation 
may  be  carried  out  unless  specific  survey  information  is  available.  In  sound 
ranging,  microphone  coordinates  are  required;  and  in  flash  ranging,  OP  coordi¬ 
nates  are  required.  The  laser  rangefinder  adjustment  program  does  not  require 
that  OP  locations  are  known. 


Certain  "permanent"  data  are  automatically  stored  on  tape  at  the  time  of  entry 
so  that  transfer  from  location  to  adjustment  and  vice  versa  may  be  made  with 
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minimum  delay.  Special  options  for  this  purpose  will  be  discussed  later  in 
the  general  information  section  and  in  more  detail  In  sections  concerned  with 
individual  programs. 

The  PTAP-2  program  complex  has  been  constructed  to  operate  at  one  of  two 
levels.  The  first  level  is  designed  to  require  minimum  training  and  degree  of 
operator  response.  It  is  only  necessary  for  an  operator  to  answer  a  sequence 
of  well-defined  prompts  and  queries  to  maintain  all  essential  program 
functions.  Level  two  offers  an  enhanced  version  of  level  one  performance  and 
provides  a  more  convenient  and  timely  cycle  of  operation  at  a  very  modest 
increase  in  training  level.  Of  primary  importance  in  level  two  operation  are 
the  special  function  keys.  Through  use  of  this  additional  key  block,  such 
program  enhancements  as  verification  and  editing  of  base  paraneters,  rapid 
changes  in  program  mode,  automatic  data  transfer,  target  display,  and  other 
special  features  are  available  to  the  operator  at  the  touch  of  a  button. 
Discussions  of  program  features  which  follow  will  be  presented  at  level  two. 
For  level  one  performance,  an  operator  needs  to  know  only  the  loading 
procedure  for  the  PTAP-2  digital  cartridge  and  the  correct  manner  of  response 
to  prompt/query  sequences. 

Before  discussing  loading  and  response  techniques,  we  will  familiarize  the 
reader  with  the  microcomputer  console  and  keyboard  configuration.  We  also 
suggest  that  the  description  of  the  HP  9825A  calculator  found  in  the 
calculator  operation  and  programming  manual  be  examined.  A  synopsis  of 
console  functions  in  the  current  context  follows. 

Across  the  top  of  the  console  from  the  operators  left  to  right  are,  in 
order,  the  digital  cartridge  loading  slot,  the  light  emitting  diode  (LED) 
display  register,  and  the  strip  printer.  The  LED  display  is  the  main  point  of 
communication  between  program  and  operator,  and  it  is  here  that  the 
statements,  prompts,  or  queries  Which  instigate  program  action  will  be 
found.  The  strip  printer  provides  hard  copy  when  required  and  is  sometimes 
used  to  supply  the  operation  with  information  which  is  too  lonq  for  the  LED 
display.  At  the  far  left  of  the  display  register,  a  large  red  LED  is 
located.  This  LED  indicates  program  operation;  and  when  the  LED  is  glowing, 
no  communication  is  possible  between  operator  and  proqran.  Below  and  to  the 
left  of  the  digital  cartridge  entry  slot  is  a  yellow  LED.  When  glowing,  this 
LED  indicates  that  the  tape  drive  is  in  operation,  for  example,  when 
information  is  being  transferred  from  tape  to  program  or  vice  versa. 

Four  groups  of  keys  are  of  interest  to  an  operator  using  the  PTAP-2 
program  complex.  These  are  the  numeric  keys,  the  alphanumeric  keys,  the 
character  keys,  and  the  special  function  keys.  Of  major  interest  are  the 
numeric  keys  located  at  the  right  of  the  keyboard.  The  numeric  keys  together 
with  the  alphanumeric  key  (continue)  constitute  the  basic  operating  set  for 
PTAP-2.  No  other  keys  are  required  for  level  one  operation. 

Action  Is  initiated  in  the  PTAP-2  program  complex  by  operator  response  to 
prompts  or  queries.  A  prompt  is  a  statement  appearing  on  the  LED  display 
register  or  strip  printer  which  indicates  a  specific  operator  action.  In  the 
majority  of  Instances,  this  statement  will  be  the  entry  of  a  numerical 

quantity  available  to  the  operator.  An  example  of  a  prompt  would  be  "enter 

easting,  mike  1."  To  enter  a  numeric  quantity,  type  the  number  from  the 

numeric  keys,  then  press  (continue).  A  query  is  a  request  in  the  form  of  a 
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direct  question  and  may  require  a  decision  on  the  part  of  the  operator.  All 
queries  encountered  in  PTAP-2  may  be  answered  in  the  affirmative  or 
negative.  To  respond  in  the  affirmative,  the  operator  presses  (+)  then 
(continue),  to  respond  in  the  negative,  (-1  then  (continue).  At  times  a  query 
may  request  specific  numeric  quantity.  For  example,  a  query  might  be  "how 
many  mikes  are  in  sound  base?"  The  operator  might  respond  by  pressing  (6), 
then  (continue)  to  indicate  a  six-microphone  sound  base.  In  general ,  the 
entry  of  a  quantity  during  program  operations  is  accomplished  by  typing  tFe 
quantity  from  the  numeric  keys,  then  pressing  (continue! ♦ 

When  a  specific  numeric  key  is  pressed,  the  associated  number  or  symbol 
will  appear  at  the  left  of  the  display  register.  At  the  point  when  the  number 
or  symbol  appears  on  the  display,  but  before  pressing  (continue),  a  careful 
check  should  always  be  made  to  verify  that  no  errors  are  present.  Once  a 
quantity  is  entered  by  pressing  (continue),  no  simple  procedure  may  exist  for- 
error  recovery. 

Correction  of  typed  quantities  sibsequent  to  program  entry  may  be  made  at 
level  one  or  level  two.  For  a  correction  at  level  one,  locate  the  key  marked 
"clear"  at  the  upper  left  of  the  numeric  key  block.  If  a  quantity  is  in 
error,  (clear)  should  be  pressed,  causing  the  keyboard  entry  to  be  deleted  and 
a  question  mark  to  appear  on  the  left  of  the  display  register.  The  operator 
may  then  type  the  correct  entry  and  press  (continue).  The  "clear"  key  may  be 
used  as  often  as  necessary  until  the  correct  quantity  appears  on  the  LEP 
displ  ay. 

Now  locate  the  block  of  four  keys  marked  "character"  located  in  the  upper 
central  keyboard.  These  keys  are  of  use  in  level  two  program  function.  In 
particular,  (back)  and  (fwd)  may  be  used  to  advantage  in  correcting  quantities 
appearing  on  the  LED  display  subsequent  to  entry. 

An  example  of  the  use  of  these  keys  will  be  given  in  the  following 
simulation  of  a  PTAP-2  operative  cycle.  Assure  that  the  PTAP-2  diqital 
cartridge  has  not  been  inserted  into  the  machine.  Switch  the  microcomputer  to 
"on."  A  " ready symbol  will  appear  at  the  left  of  the  LEP  display  register. 
Type  the  number  82135.67.  This  nunber  will  appear  on  the  left  of  the  display 
register  exactly  as  it  would  if  it  were  the  response  to  some  query  arising  in 
PTAP-2.  Suppose  that  subsequent  to  entry  it  is  discovered  that  the  correct 
response  was  83135.67.  Press  (fwd).  A  flashing  red  cursor  will  appear  over 
the  number  8.  Each  time  the  (fwd)  key  is  pressed,  the  flashing  cursor  is 
moved  one  character  to  the  right.  If  (back)  is  pressed,  the  cursor  is  moved 
one  character  to  the  left.  Position  the  cursor  over  the  incorrect  character  2 
and  type  the  correct  character  3.  The  number  which  appears  will  now  be 
83135.67  with  the  cursor  appearing  over  the  character  1.  The  number  is  non 
ready  for  entry.  Now  press  (clear)  and  again  type  82135.67.  Suppose  that  it 
is  discovered  that  an  error  exists  in  the  rightmost  digit,  the  proper  nunber 
being  82135.69.  Press  (back).  The  flashing  cursor  will  now  be  positioned 
over  the  character  7.  Again,  type  the  correct  value.  The  nunber  82135.69 
will  now  be  ready  for  entry. 
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It  is  clear  that  use  of  the  keys  (fwd)  and  (back)  can  greatly  facilitate 
correction  of  program  responses  prior  to  entry  and  result  in  a  reduction  o^ 
time  and  effort.  The  machine  may  now  be  switched  off  if  desired. 

The  special  function  keys  are  a  block  of  12  keys  located  at  the  upper 
right  of  the  keyboard.  The  keys  are  marked  f,,  ft,  ....  flt  and  are  called 
special  function  keys  0,  1,  ....  11,  respectively.  These  keys  perform  a  major 
function  in  level  two  program  operation,  with  each  of  the  eight  programs  in 
the  PTAP-2  complex  having  its  own  set  of  special  function  key  options.  In  all 
possible  cases,  a  redundancy  of  operation  has  been  practiced  to  reduce  the 
amount  of  information  an  operator  must  commit  to  memory.  To  initiate  a 
special  function  option,  the  operator  need  only  press  (stop)  and  then  the 
desired  special  function  key.  Special  function  options  are  generally  designed 
to  be  used  at  specific  points  during  the  operative  cycle.  These  options  will 
be  indicated  in  the  discussions  of  individual  programs  which  follow. 

For  all  programs,  the  special  function  key  11  (fti)  generates  an 
index/transfer  program  which  may  be  used  to  transfer  to  any  other  program 
option  in  PTAP-2.  If  special  function  option  11  is  used  when  in  location 
mode,  all  targets  located  at  the  point  of  transfer  are  stored  on  tape  before 
transfer  and  may  be  recalled  when  operation  in  the  given  mode  is  resuned.  In 
location  mode,  special  function  option  8  may  always  be  used  to  provide  a 
printout  of  all  targets  and  location  times  to  the  point  at  which  the  special 
function  option  is  initiated.  Special  function  key  10  (f * • )  may  be  used  to 
transfer  from  location  to  adjustment  and  vice  versa.  When  transferring  from 
location  to  adjustment  mode,  target  times  and  locations  to  the  time  of 
transfer  are  stored  on  tape.  It  should  be  noted  that  as  far  as  possible 
special  function  keys  have  been  arranged  so  that  special  function  key  fi  (f») 
will  in  a  natural  cycle  of  operation  be  used  earliest  in  the  program,  a~ncT 
progress  will  in  general  proceed  to  higher  nunbered  special  function  keysT 
Additional  information  or  special  function  keys  will  occur  in  natural  sequence 
i n  the  text. 

When  possible,  use  of  a  special  function  key  will  result  in  a  statement 
identifying  the  option  specified,  either  by  a  remark  appearing  on  the  display 
or  a  heading  on  the  printer.  For  example,  if  special  function  key  in  (f,t)  is 
pressed  when  the  program  is  in  the  location  mode,  the  comment  "ADJUSTMENT  MODE 
INITIATED"  will  appear  on  the  display.  If  the  program  is  in  the  adjustment 
mode  and  ft *  is  utilized,  the  comment  "LOCATION  MODE  INITIATED"  will  result. 
If  a  key  is  inadvertently  pressed  which  does  not  represent  a  function  in  the 
PTAP-2  program  complex,  the  machine  will  "beep"  once  and  the  comment  "WRONG 
KEY!  PRESS  (continue)"  will  be  visible  on  the  display. 

Essential  to  level  one  operation  is  a  self-loading  index/transfer  program 
which  permits  access  to  all  PTAP-2  progran  options.  Into  an  appropriately 
configurated  HP  9825A  microcomputer,  load  a  PTAP-2  digital  cartridge.  Observe 
that  entry  is  made  at  the  slot  located  at  the  extreme  upper  left  of  the 
console.  In  loading,  be  sure  that  the  smooth  black  back  of  the  cartridge  is 
toward  the  operator  and  the  cartridge  is  easily  but  firmly  pressed  into  place. 

Now  switch  the  machine  to  "on."  If  the  digital  cartridge  was  properly 
loaded,  the  yellow  LED  to  the  bottom  left  of  the  entry  port  should  glow 
briefly,  indicating  that  the  index/transfer  program  is  being  loaded.  The  time 


9 


for  loading  may  vary  due  to  the  status  of  the  tape  at  the  last  shutdown, 
the  program  is  loaded,  the  foil owi ng  wi  1 1  appear  on  the  strip  printed: 


When 


TO  CALL  DESIRED 
PROGRAM 

ENTER  PROGRAM 
NIMBER 

PRESS  CONTINUE 

1  SOUND  RANGING 

2  SOUND  ON  SOUND 

3  VISUAL  MET 

4  FLASH  RANGING 

5  FLASH  ADJT 

6  LASER  RFDR . 

7  LASER  RFDR.  ADJUSTMENT 

8  LASER  RFDR.  TRILATERATION 


On  the  LED  display,  the  prorrpt  "enter  program  nunber"  will  be  visible.  Since 
the  first  program  to  be  discussed  will  be  sound  ranging,  the  operator  should 
enter  the  nunber  1  in  response  to  the  pronpt  visible  on  the  display.  If  for 
any  reason  the  sequence  encountered  when  attempting  the  loading  procedure  is 
not  exactly  as  described,  switch  the  microconputer  to  "off"  then  to  "on" 
again.  If  the  problem  is  not  corrected,  press  (stop);  then  type  trk  1  from 
the  alphanumeric  and  numeric  keys.  Now  press  (execute)  and  type  ldp  0.  Press 
execute.  If  program  loads  properly,  one  may  continue  operation,  but  the  PTAP- 
2  tape  should  be  replaced  at  the  earliest  possible  time.  If  the  index  still 
does  not  appear,  the  microcomputer  should  be  checked  for  malfunction. 

At  this  time,  the  sound  ranging  program  options  should  be  loaded,  and  the 
query  "are  earlier  targets  stored?"  should  be  visible  on  the  display 
register.  The  reader  should  now  turn  to  section  1  of  the  user's  guide. 


SECTION  1 


A  DESCRIPTION  WITH  EXAMPLES  OF  THE  PROGRAM  OPTIONS 

IN  PTAP-? 

SOUND  RANH I NO 

When  the  sound  ranging  program  is  selected,  either  from  the  initial  self- 
loading  index  or  by  cross  reference  from  another  program,  the  following 
sequence  of  events  will  take  place.  After  a  brief  display  of  the  title  "SOUND 
RANGING,"  the  query  "are  earlier  targets  stored?"  will  appear.  This  query 
refers  to  the  program  capability  of  recording  up  to  100  targets  and  their 
times  of  location.  Recorded  targets  and  times  are  stored  on  tape  when  the 
targets  located  nunber  10  or  a  multiple  thereof.  Under  such  circumstances, 
target  loss  due  to  involuntary  shutdown  will  never  exceed  10.  Targets  are  not 
stored  when  located,  as  tape  wear  could  be  excessive.  Three  exits  are 
possible  from  the  sound  ranging  mode.  A  general  index/transfer  program  may  be 
called  through  use  of  special  function  key  11  (ftt),  the  special  function  key 
10  may  be  used  to  shift  from  location  to  fire  adjustment  mode  directly,  or 
special  function  key  5  may  be  used  to  call  the  visual  met  program.  In  each 
case,  all  recorded  targets  are  stored  on  tape  before  transfer.  The  query  "are 
earlier  targets  stored?"  enables  the  operator  to  recall  all  targets  located 
and  stored  in  prior  operative  cycles.  An  affirmative  response  reinstates 
previous  targets  and  nunbers  subsequent  targets  sequentially  from  the  last 
recorded.  For  example,  if  57  targets  were  located  and  stored  during  previous 
operating  cycles,  the  first  target  located  in  the  present  cycle  would  be  given 
the  nunber  58.  A  negative  response,  on  the  other  hand,  causes  all  previous 
targets  to  be  ignored  and  gives  the  first  target  located  the  nunber  1.  If 
more  than  100  targets  are  recorded,  the  100  most  recent  are  kept  on  record. 
The  operator  should  answer  this  query  in  the  negative. 

The  query  "how  many  mikes  in  sound  base?"  which  appears  next  may  be  answered 
with  any  number  from  3  to  6.  For  the  example  to  be  considered,  a  standard 
six-microphone  sound  base  will  be  employed,  so  the  operator  would  enter  6 
(Press  (6),  [continue]).  The  next  query,  "are  mike  coordinates  stored7"  makes 
reference  to  the  automatic  storage  of  the  coordinates  of  all  microphones  used 
in  the  sound  base.  Storage  is  accomplished  immediately  after  entry  and 
coordinates  are  retained  until  altered  or  new  coordinates  are  entered.  If  the 
existing  sound  base  was  entered  during  a  previous  cycle  of  operation,  an 
affirmative  response  would  reinstate  those  values  in  the  current  program.  As 
no  mike  coordinates  have  been  entered,  the  operator  should  give  a  negative 
response.  The  pronpt  "enter  easting,  mike  1"  will  appear  on  the  display,  and 
prompts  will  cycle  through  northing,  then  mikes  1  through  6.  Enter  the 
following  microphone  coordinates. 


Mi  ke 

Easting 

Northing 

1 

57886.00 

39280.00 

2 

59232.00 

39176.00 

3 

60540.00 

39180.00 

4 

61925.00 

38967.00 

5 

63470.00 

38880.00 

6 

64617.00 

38759.00 
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To  enter  a  given  coordinate,  first  type  the  numerical  value  as  a  decimal 
fraction,  then  press  (continue).  For  example,  to  respond  to  the  prorrpt  "enter 
easting  (meters),  mike  1,"  type  57RP6.0,  then  press  (continue).  The  prompt 
"enter  northing  (meters),  mike  1"  will  follow,  and  the  cycle  will  continue 
through  mike  6.  When  all  six  mikes  are  entered,  the  red  LEP  to  the  left  of 
the  display  will  glow  briefly,  indicating  that  microphone  coordinates  are 
being  stored.  Storage  of  microphone  coordinates  is  made  both  for  sound 
ranging  and  sound  on  sound  adjustment  simultaneously  so  that,  after  initial 
entry,  both  programs  are  available  for  immediate  execution  or  cross  reference. 

If  after  microphone  coordinates  are  entered,  a  verification  is  desired*  when 
the  query  "is  new  met  message  available?"  appears  on  the  display,  press  (stop) 
then  special  function  key  6  ( f « ) -  A  printed  list  of  microphone  coordinates  as 
currently  recorded  will  result.  Discrepancies  which  arise  from  keyboard 
errors  or  problems  in  original  mike  surveys  may  now  be  corrected.  If  errors 
are  found,  an  affirmative  response  may  be  given  to  the  query  "are  mike  coordi¬ 
nates  correct?"  If  no  errors  are  encountered,  a  positive  response  will  cause 
a  return  to  the  query  "is  new  met  message  available?"  In  case  of  error,  the 
response  to  "which  mike  has  error  in  coord?"  allows  a  specific  microphone  to 
be  corrected.  When  the  mike  nunber  is  entered,  the  display  will  contain  the 
prunpt  "enter  correct  easting,  mike  ,"  followed  by  "enter  correct 

northing,  mike _ ,"  where  the  blank  wi  1 1  read  the  nunber  of  the  mike  identi¬ 

fied  as  being  in  error.  After  the  correct  coordinates  of  the  first  mike  are 
entered,  the  query  "are  other  coordinates  in  error'!’"  allows  the  option  of 
exiting  the  microphone  correction  mode  with  subsequent  storage  of  mike  coordi¬ 
nate  data  or  of  a  return  to  the  query  "which  mike  has  error  in  coord?" 
preparatory  to  further  corrections.  When  cycle  is  completed,  the  program  will 
return  to  the  query  "is  new  met  message  available?" 

As  a  protection  against  voluntary  shutdown,  malfunction,  or  loss  of  power,  met 
data  are  stored  upon  entry  and  retained  until  a  new  met  message  is  entered. 
When  the  query  "is  new  met  message  available7"  appears,  the  met  currently  in 
the  machine  may  be  viewed  by  use  of  special  function  key  7  (f7).  Recall  that 
initiation  of  a  special  function  option  is  accomplished  by  pressing  (stop), 
then  the  desired  special  function  key.  When  special  function  key  7  is  used,  a 
listing  of  effective  windspeed  and  wind  direction  and  effective  tenperature  as 
currently  recorded  in  the  machine  will  appear  as  a  printout.  If  met  is 
correct,  a  negative  response  will  lead  to  the  query  "is  brk  time  available, 
mike  1?"  On  the  other  hand,  if  the  response  is  affirmative,  the  prompt  "enter 
effective  temp  (C)"  will  appear.  For  our  example,  a  temperature  of  26.4°C 
should  be  entered.  For  subsequent  queries,  the  values  3  knots  and  302(1  mils 
should  be  used  for  effective  windspeed  and  wind  direction,  respectively.  The 
query  "is  brk  time  available,  mike  1?"  then  appears,  and  machine  is  ready  to 
accept  break  times.  At  this  point,  if  desired,  a  verification  of  met  data 
entered  above  may  be  performed  via  special  function  key  7. 


♦Such  a  verification  is  recommended  as  a  routine  measure  and  should  be 
accomplished  each  time  a  new  coordinate  set  is  entered. 
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It  may  occur  that  break  times  are  not  available  for  all  microphones  because 
of  the  difficulty  in  reading  strip  charts  or  because  of  microphone 
malfunctions.  This  contingency  is  dealt  with  through  the  query  "is  brk  time 
available,  mike  ?"  where  the  blank  indicates  an  integer  which  will  range 
sequentially  from  1  to  the  specified  number  of  microphones.  If  no  data  are 
available  for  a  given  microphone,  a  negative  response  causes  that  mike  to  be 
ignored.  If  data  are  available  for  less  than  three  microphones  only,  an  error 
message  will  appear  on  the  display,  and  the  run  will  be  ignored.  The  machine 
will  then  return  to  the  query  "is  met  message  available,  mike  1?"  in 
preparation  for  the  next  target. 

The  data  entry  phase  for  sound  ranging  starts  with  the  query  "is  break  time 
available,  mike  1?"  As  an  example  of  level  one  data  entry,  consider  the 
following  break  times. 

Mi  ke  Break  Time 

1  1.190 

2  * 

3  .719 

4  1.419 

5  3.550 

6  5.476 

Answer  the  query  "is  break  time  available,  mike  1?"  in  the  affirmative.  The 
program  will  respond  with  the  prompt  "enter  break  time,  mike  1."  Enter 
1.190.  When  the  value  is  entered,  the  nunber  will  appear  on  the  printer. 
Answer  the  query  "is  break  time  available,  mike  2?"  in  the  negative.  A  single 
asterisk  will  appear  on  the  printer  indicating  omitted  data  and  the 
query/prompt  cycle  will  continue.  Enter  the  remaining  data.  When  the  break 
time  from  microphone  6  is  correctly  entered,  the  query  "are  break  times 
correct?"  will  appear  on  the  display.  Examine  the  data  listed  on  the 
printer.  If  all  data  are  correct,  answer  the  query  in  the  affirmative.  After 
a  brief  computational  cycle,  the  following  listing  is  obtained 


SOUND 

RANGING 

TARGET 

1 

easting 

59362.9 

northing 

33538.6 

spread 

153.5 

The  time  of  location  is  specified  by  answering  the  prompt  "enter  day,  time  of 
day  ex  061350."  The  example  061350  would  indicate  the  sixth  day  of  the  month 
at  1350  hours  for  the  target  location  time.  Answer  this  prompt  in  an 
appropriate  fashion.  The  time  will  be  added  to  the  output  given  above. 

The  query  "is  new  met  message  available?"  now  permits  an  update  of  met  data. 
Answer  in  the  negative.  The  program  is  now  at  the  data  entry  stage  for  target 
2.  Level  two  data  entry  will  now  be  considered,  together  with  the  data  edit 
mode.  When  the  query  "is  break  time  available,  mike  1?"  appears,  instead  of 
answering  the  query,  type  1.190;  then  press  "continue."  The  break  time  will 
be  entered  and  the  entry  listed  as  before;  and  the  query  "is  break  time 
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available,  mike  2?"  will  appear  on  the  display.  Answer  the  queries  in  the 
negative  for  mikes  2,  3,  and  4.  For  mike  5,  enter  3.550  and  for  mike  6, 
5.476. 


i 


The  listing  on  the  printer  should  read: 


1-190 

★ 

★ 

★ 

3.550 

5.476 

Answer  the  query  "are  break  times  correct?"  in  the  negative.  On  the  printer, 
the  heading  "BREAK  TIME  EPIT"  will  appear;  and  on  the  display  "which  mike  has 
break  time  error?"  will  appear.  Respond  with  3.  Following  will  be  the  prompt 
"enter  correct  break  time,  mike  3."  Enter  .719.  On  the  printer  should 
appear: 


BREAK  TIME  EDIT 

MIKE  3 

0.719 


Answer  the  query  "is  another  break  time  in  error7"  in  the  affirmative,  and 
enter  mike  4  as  1.419.  Now  answer  the  query  "is  another  break  time  in  error?" 
in  the  negative.  After  a  brief  cycle  of  operation,  a  listing  should  appear 
exactly  similar  to  the  last,  but  for  target  2.  The  number  listed  as  the 
spread  is  the  radius  of  the  smallest  circle  containing  all  internally 
generated  target  location  estimates.  The  printed  target  is  the  median  of 
these  values. 

The  level  two  data  entry  procedure  together  with  the  edit  mode  provides  a 
considerable  enhancement  of  operation  over  level  one  performance.  In  general 
the  advantage  considerably  outweighs  the  modest  training  effort  required  for 
correct  utilization.  However,  level  one  performance  is  entirely  adequate  for 
basic  program  functions. 

When  computation  of  the  target  location  is  complete  and  the  appropriate 
printout  is  provided,  the  display  will  read  "enter  day,  time  of  day,  ex 
060945."  This  prompt  provides  a  means  for  recording  the  day  and  time  of  day 
the  target  was  located.  For  example,  if  the  location  took  place  at  2400  hours 
on  the  6th  of  the  month,  the  operator  would  enter  062400.  Entry  of  this 
quantity  completes  the  current  cycle  of  operation. 

When  the  machine  is  at  the  beginning  of  the  data  entry  cycle  and  the  display 
reads  "is  new  met  message  available?"  it  is  possible  to  exhibit  the  last  100 
located  targets  in  a  printout.  The  list  will  contain  time  of  target  location, 
target  easting,  and  target  northing.  To  initiate  the  listing,  press  (stop) 
then  special  function  key  8  (f«).  If  less  than  10  targets  have  been  located, 
all  targets  will  be  listed  with  the  display  "ALL  TARGETS  LISTED!!!"  appearing 
briefly  before  return  to  the  beginning  of  the  data  entry  phase.  If  more  than 
10  targets  have  been  located,  the  list  will  proceed  at  demand  in  10-target 
blocks  until  all  are  located.  If  more  than  100  targets  are  found. 
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the  list  will  retain  the  100  most  current.  At  the  100th  target,  a  brief 
message  to  this  effect  will  appear. 


If  a  change  in  mode  of  operation  is  desired,  press  (stop),  then  special 
function  key  11  (ftt)-  This  action  causes  all  targets  to  be  stored  together 
with  their  times  of  location.  An  index  of  programs  in  PTAP-2  then  appears  on 
the  printer,  with  the  display  reading  "enter  program  nunher."  At  this  time, 
any  program  in  PTAP  may  be  selected.  This  time  is  also  a  convenient  time  for 
shutdown.  Special  function  key  10  may  be  used  if  it  is  desired  to  switch  to 
sound  on  sound  adjustment  directly.  When  (f  t .)  is  pressed,  all  target 


ii mil  hi 


adjustment  mode 


stor 


may  be  used  to  return  to  sound  ran 


on  soun 


THE  BREAK  TIME  ASSISTANCE  OPTION 


The  break  time  assistance  option  is  a  subprogram  whose  function  is  to  assist 
in  the  reading  of  break  times  from  a  strip  chart  with  poorly  defined  breaks  or 
one  which  is  complicated  by  multiple  arrivals.  To  call  this  option,  the 
program  should  be  at  the  point  of  break  time  entry,  that  is,  at  the  point  at 
which  the  display  reads  "is  brk  time  available,  mike  1?"  (Entrance  may  be 
made  at  the  point  at  which  the  display  reads  "is  new  met  message  available?" 
But  return  will  always  be  to  the  query  "is  brk  time  available,  mike  1?")  It 

will  be  assumed  that  the  met  message  in  the  machine  is  current.  Press  (stop), 

then  special  function  key  9  (f,).  The  heading  "BREAK  TIME  REAPING  ASSISTANCE" 
will  appear  briefly,  followed  by  the  query  "use  coordinates  of  last  target’" 
The  purpose  of  this  query  is  as  follows.  Suppose  that  a  set  of  at  least  three 
break  times  may  be  identified  from  a  strip  chart  complicated  by  multiple 
arrivals  or  with  low  intelligibility.  Consider  the  example  previously 
described.  Suppose  that  mikes  1,  3,  and  6  have  reasonable  traces  and  times 
1.190,  .719,  and  5.476  may  be  read;  but  difficulty  is  encountered  on  traces 
for  mikes  2,  4,  and  5.  Mikes  1,  3,  and  6  are  entered.  The  resulting  target 
is  easting  59363.3,  northing  33522.8,  with  zero  spread  due  to  the  fact  that 
only  three  microphones  were  used  to  obtain  the  target  location.  When  the 
display  reads  "is  brk  time  available,  mike  1?"  press  "stop,"  then  (f»)  to 

initiate  the  break  time  reading  assistance  proqram.  When  the  query  "use 
coordinates  of  last  target?"  appears,  respond  in  the  affirmative.  The  answer 
to  the  query  "which  mike  has  sharpest  break?"  would  in  general  be  dictated  by 
circumstances.  In  this  case  assure  that  miko  1  produces  a  clear  sharp 
break.  After  response,  the  query  "enter  break  time,  mike  1?"  would  he 

answered  by  entering  1.190.  At  this  point,  a  listing  of  calculated  break 
times  will  occur,  with  mike  1  as  1.190,  mike  2  as  .362,  mike  3  as  .721,  mike  4 
as  1.413,  mike  5  as  3.530,  and  mike  6  as  5.456. 


The  difference  between  arrival  times  as  predicted  by  the  program  and  given 
earlier  are  as  follows: 


(microseconds) 


Mi  ke 

1 

0 

Mi  ke 

2 

21 

Mi  ke 

3 

2 

Mi  ke 

4 

6 

Mi  ke 

5 

20 

Mi  ke 

6 

20 

The  b^eak  times  predicted  by  the  assistance  program  are  sufficient  to  indicate 
where  actual  arrival  times  may  be  found. 

A  second  use  may  occur  as  follows.  Suppose  that  a  strip  chart  occurs  with 
sufficient  multiple  arrivals  to  make  direct  deciphering  impractical.  However, 
intelligence  indicates  that  a  target  might  be  at  some  known  point,  or  it  is 
desired  to  determine  if  a  target  might  be  at  some  specified  point.  In  any 
case,  a  break  time  or  times  is  chosen  as  a  basis,  then  the  break  time 
assistance  program  is  called.  In  this  case,  the  query  "use  coordinates  of 
last  target?"  would  be  answered  in  the  negative.  A  prompt  then  requests  the 
easting  and  northing  of  an  estimated  target.  Choose  59000,  33000  as  an 
example.  Assune  that  mike  1  was  chosen  for  reference  with  break  time  1.190. 
Predicted  arrival  times  are: 


Mike  1 

1.190 

Mike  2 

.625 

Mike  3 

1.171 

Mike  4 

1.973 

Mike  5 

4.111 

Mike  6 

6.012 

If  the  arrival  times  as  earlier  indicated  are  considered,  differences  between 
recorded  and  predicted  values  are: 

(milliseconds) 


Mike 

1 

0 

Mi  ke 

2 

242 

Mi  ke 

3 

452 

Mi  ke 

4 

0 

Mike 

5 

561 

Mi  ke 

6 

536 

In  this  situation  the  departure  is  at  most  about  a  half  second,  so  that 
correct  break  time  choice  could  probably  be  made  except  in  cases  of  a  high 
density  of  multiple  arrivals.  Upon  completion  of  procedure,  return  is  made  to 
the  point  of  awaiting  new  break  times,  and  the  display  will  read  "is  brk  time 
available,  mike  1?" 

An  additional  special  function  key  option  for  sound  ranging  and  sound  on  sound 
adjustment  has  been  added.  Special  function  key  5  may  now  be  used  in  either 
program  to  institute  the  visual  met  program.  If  special  function  key  5  is 
used,  targets  and  location  times  are  stored  before  transfer  when  appropriate. 
At  this  time,  press  (stop),  then  special  function  key  10  to  initiate  the  sound 
on  sound  adjustment  program. 
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SOUND  ON  SOUND  ADJUSTMENT 


If  the  sound  on  sound  adjustment  program  is  selected,  either  from  the  initial 
index  program  or  from  a  cross  reference,  the  following  sequence  of  events  may 
be  expected.  After  a  brief  display  of  the  program  title,  the  query  "how  many 
mikes  in  sound  base?"  will  appear.  Like  sound  ranging,  the  sound  on  sound 
adjustment  program  will  accept  from  three  to  six  microphones.  The  example  to 
be  considered  will  employ  six. 

The  next  query  to  appear  will  be  "are  mike  coordinates  stored7"  It  might  he 
noted  that,  if  the  example  was  completed  in  the  sound  ranging  program 
description,  microphone  position  coordinates  have  already  been  stored  so  that 
an  affirmative  response  will  reinstate  these  values.  When  coordinates  are 
loaded,  that  is  when  the  red  LED  to  the  left  of  the  display  is  extinguished 
and  the  query  “is  new  met  message  available?"  appears,  one  may  verify 
microphone  coordinates  by  use  of  special  function  key  6  (f«).  If  incorrect 
coordinates  are  encountered,  corrections  may  be  made  through  the  editing 
program  which  is  automatically  initiated.  If  no  discrepancies  are  found,  a 
positive  response  to  "are  mike  coordinates  correct?"  returns  the  program  to 
the  mainstream  at  the  query  "is  new  met  message  available7" 

To  verify  if  proper  met  is  contained  in  the  machine,  special  function  key  7 
(f t )  may  be  used.  On  pressing  (stop),  (f r),  a  listing  will  be  printed  of 
effective  wind  and  temperature  values.  Return  is  to  the  point  of  entry,  so 
that  the  query  "is  new  met  message  available?"  will  again  appear  on  the 
display. 

If  the  exercise  offered  in  the  discussion  of  sound  ranging  has  been  completed, 
correct  met  data  will  appear  on  the  listing.  If  met  is  stored,  a  negative 
response  is  indicated;  if  not,  give  an  affirmative  response  and  enter 
appropriate  data  (26.4°C  for  effective  temperature,  3  knots  for  effective 
windspeed,  3020  miles  for  effective  wind  direction). 

A  negative  response  to  the  query  "is  new  met  message  available?"  or  entry  of 
appropriate  met  data  will  be  followed  by  the  query  "READY  FOR  TARGET  DATA?" 
This  expression  will  remain  on  display  until  the  continue  key  is  pressed.  It 
is  suggested  that  in  light  of  the  two-cycle  nature  of  adjustment  programs,  the 
continue  key  should  not  be  pressed  until  target  data  are  ready  for  entry.  If 
a  new  met  message  should  be  available  during  such  a  waiting  period,  new  met 
data  may  be  entered  by  pressing  special  function  key  7  (f?).  Entry  of  new  met 
data  will  lead  again  to  the  identical  point  in  the  program.  Now  assune  that 
the  data 

Mike 


1 

2 

3 

4 

5 

6 


Break  Time 

1.190 

.383 

.719 

1.419 

3.550 

5.476 
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are  available  for  the  target.  Press  (continue)  and  enter  data  in  exactly  the 
same  fashion  as  break  times  were  entered  in  the  sound  ranqinq  program.  The 
following  printout  should  result: 


SOUND 

RANGING 

TARGET 

easting 

59357.1 

northing 

33506.6 

spread 

290.6 

(For  a  definition  of  spread,  see  description  of  the  sound  ranging  program.) 

Determination  of  the  target  leads  to  entry  of  the  adjustment  cycle.  The 
display  "READY  FOR  ADJUSTMENT  DATA?"  will  remain  on  display  until  the  continue 
key  is  pressed.  It  will  be  of  advantage  to  leave  the  display  visible  and 
press  (continue)  only  if  adjustment  data  is  ready  for  entry.  Otherwise,  it  is 
possible  to  lose  position  in  the  operative  cycle. 

Now  the  following  adjustment  data  will  be  given: 


Mike  Break  Time 

1  1.300 

2  .400 

3  .700 

4  1.400 

5  3.600 

6  5.500 

Press  (continue),  then  enter  above  data.  A  printout  should  result  as  follows: 

ADJUSTMENT  1 

1  eft  99 

drop  185 

spread  1664.4 

Since  the  shift  resulted  from  an  impact  further  than  100  meters  from  tarqet, 
the  option  to  perform  another  adjustment  is  given  with  the  query  "another 
adjusting  round?"  A  negative  response  will  end  the  operative  cycle  and  return 
the  machine  to  the  point  of  awaiting  data  for  the  next  target.  An  affirmative 
response  Initiates  a  new  cycle  for  the  second  adjusting  round  and  leads  to  the 
point  of  awaiting  adjustment  data.  Give  an  affirmative  response,  press 
(continue),  and  enter: 


Mike 


Break  Time 


1 

2 

3 

4 

5 

6 


1.201 

.391 

.702 

1.415 

3.558 

5.485 
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The  accompanying  printout  should  read: 


ADJUSTMENT  2 

right  11 

drop  34 

spread  490.3 

FIRE  FOR 


EFFECT 

Computations  from  this  data  set  fix  the  impact  of  the  adjustment  round  at  less 
than  100  meters  from  the  target.  In  this  case,  “FIRE  FOR  EFFECT"  will  appear 
as  the  last  entry  on  the  printed  output.  Under  these  circumstances,  the 
program  automatically  returns  to  the  data  entry  phase  and  "is  new  met  message 
available?"  will  appear  on  the  display.  This  completes  the  first  cycle  of 
operation. 

The  break  time  reading  assistance  program  may  be  initiated  at  any  time  the 
display  reads  "READY  FOR  TARGET  DATA?"  or  "READY  FOR  ADJUSTMENT  DATA?"  Answer 
the  query  “is  new  met  message  available?"  in  the  negative,  and  when  the 
display  reads  "READY  FOR  TARGET  DATA?"  call  the  break  time  reading 
assistance  program  by  pressinq  (f4).  When  the  query  "use  of  coordinates  of 
last  target?"  appears,  respond  in  the  negative.  This  response  indicates  that 
a  possible  target  is  to  be  examined  to  see  if  it  might  be  verified  on  the 
strip  chart.  To  the  query  "enter  easting,  estimated  target,"  respond  with 
59345.0.  To  the  query  "enter  northing,  estimated  target,"  answer  3353Q.  The 
query  "which  mike  has  sharpest  break?"  allows  all  break  times  to  be  normalized 
to  the  specified  microphone.  In  this  case  use  mike  1  and  the  break  time 
1.201.  The  resulting  printout  should  read: 


BREAK  TIMES 
NORMALIZED  TO 
MIKE 

1 

mike 

1 

brk  time 

1.201 

mike 

2 

brk  time 

0.3R3 

mike 

3 

brk  time 

.755 

mike 

4 

brk  time 

1.463 

mike 

5 

brk  time 

3.595 

mike 

6 

brk  time 

5.530 

At  this  time,  the  program  will  have  returned  to  the  point  of  entry  for  the 
break  time  reading  assistance  program,  "READY  FOR  TARGET  BREAK  TIMES?"  will 
appear  on  the  display.  Press  (continue)  and  enter  the  times  from  above.  The 
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resulting  printout  should  be: 


SOUND 

RANGING 

TARGET 

easting 

59344.7 

northing 

33537.8 

spread 

10.1 

The  small  spread  indicated  above  is  to  be  expected  and  simply  reflects 
modeling  consistency.  Millisecond  truncation  of  arrival  times  is  largely 
responsible  for  the  magnitude  of  the  spread. 

At  this  point,  press  (stop),  then  special  function  key  5  (f ») .  This  will 
introduce  the  visual  met  program. 

Exit  from  the  sound  on  sound  adjustment  program  may  always  be  made  via  the 
index/transfer  program  called  by  special  function  key  11  (fit),  as  well  as 
direct  transfer  to  the  sound  ranging  program  through  use  of  special  function 
key  10. 


VISUAL  MET  CALCULATION  PROGRAM 

When  the  visual  met  calculation  program  is  accessed  either  from  the  initial 
index  or  by  cross  reference  from  another  program,  the  following  sequence  of 
events  is  initiated.  The  title  "VISUAL  MET  CALCULATION”  will  appear  briefly 
on  the  display,  and  the  heading  "DATA  SET  1”  will  be  written  on  the  printer. 
The  first  data  pronpt  "enter  dry  bulb  temp  (C)"  will  then  appear  on  the 
display.  Note  that  the  format  for  data  entry  for  the  visual  met  calculation 
program  is  tailored  to  the  DA  Form  6-48.  As  an  example,  tenperature  data  will 
be: 


dry  bul  b 

15°C 

wet  bulb 

8°C 

time  of  day  corr 

0. 6°C 

Observe  that  as  each  data  entry  is  made  the  value  entered  is  simultaneously 
printed.  When  all  temperature  data  are  entered,  the  query  "is  input  data 
correct?"  permits  correction  of  improperly  entered  data  by  repeating  the  data 
entry  cycle.  A  negative  response  returns  the  program  to  mainline  operation. 
A  similar  function  will  be  performed  for  all  data  entries  in  the  visual 
meteorology  program. 

Following  the  sequence  of  prompts  related  to  effective  temperature,  the 
computed  value  will  appear  on  the  printer,  the  printed  output  should  read: 

DATA  SET  1 

eff  terrp  16.1 

Having  completed  the  effective  temperature  calculation,  the  program  is  reac(y 
to  complete  calculations  for  data  set  1.  The  introductory  query  "conpute 
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effective  wind?"  permits  the  operator  to  calculate  effective  wind.  In  which 
case  the  query  is  answered  In  the  affirmative,  or  to  consider  a  new  data  set. 
In  which  case  the  answer  is  In  the  negative.  A  negative  response  may  also  be 
used  to  terminate  the  program.  If  a  negative  response  Is  given,  the  query 
"another  calculation?"  will  appear.  An  affirmative  response  Initiates  another 
cycle  of  computation  and  returns  the  program  to  the  prompt  "enter  dry  bulb 
temp  ( C ) "  with  the  heading  "DATA  SET  2"  occurring  on  the  printer.  A  negative 
response  terminates  the  program  with  "PROGRAM  COMPLETED"  appearing  on  the 
display. 

In  the  case  of  an  affirmative  response,  the  query  "compute  effective  wind?" 
begins  the  wind  computation  cycle.  The  prompt  "enter  offset  azimuth  (deg)," 
followed  by  "enter  offset  distance  (meters),"  establishes  the  balloon  launch 
point  relative  to  station  position.  For  the  example  to  be  considered,  both 
quantities  will  be  zero.  The  following  balloon  position  data  will  be 
requested  In  sequence. 

Balloon  Height 

(m) _  El evatlon  Azimuth  (deg) 


sur 

58.0 

12.6 

200 

34.1 

335.2 

400 

42.3 

342.2 

600 

31.7 

348.3 

800 

29.2 

358.6 

On  completion  of  data  entry,  the  calculation  of  effective  met  for  the  first 
data  set  Is  completed.  On  the  printer  will  now  appear: 

DATA  SET  1 


15.0 

8.0 

0.6 

eff  temp 

16.1 

sur 

58.0 

12.6 

200  m 

34.1 

335.2 

400  m 

42.3 

342.2 

600  m 

31.7 

348.3 

800  m 

29.2 

358.6 

eff  wlndspd 

10.6 

eff  wind  dir 

2759.1 
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The  query  "another  calculation7"  enables  the  operator  to  proceed  to  a  second 
data  set  which  can  be  initiated  by  an  affirmative  response,  or  to  load  the 
effective  met  data  just  calculated  directly  into  the  sound  ranqinq  and  sound 
on  sound  adjustment  programs.  The  query  "is  met  data  to  be  used  now?"  when 
answered  in  the  affirmative  accomplishes  this  objective.  This  action  orients 
and  formats  the  data  preparatory  to  storage,  then  loads  it  into  appropriate 
files.  The  heading  "MET  ORIENTATION  INITIATED"  will  appear  briefly  on  the 
display,  followed  by  the  query  "how  many  mikes  in  sound  base7"  When  this 
query  is  answered  properly,  the  prompt  "INITIATE  DESIRED  PROGRAM"  permits 
transfer  to  sound  ranging  program  via  special  function  key  7  or  sound  on  sound 
adjustment  via  special  function  key  8. 

Press  special  function  key  7.  The  comment  "SOUND  RANGING  PROGRAM  INITIATED" 
will  appear  on  the  display.  Answer  the  resultinq  query /prompt  seouence  until 
"is  new  met  message  available?"  appears  on  the  display.  Special  function  key 
7  then  should  result  in  the  listing: 

MET  VALUES 

terrp  16.1 

windspd  10.6 

wind  dir  2759. 

At  this  point,  call  the  index  (f i  i)  and  proceed  to  the  flash  ranging  program. 

FLASH  RANGING 

The  initiation  of  the  flash  ranging  portion  of  PTAP-2  will  result  in  a  brief 
display  of  the  heading  "FLASH  RANGING."  As  in  all  location  programs  in 
PTAP-2,  the  initial  query  will  be  "are  earlier  targets  stored7"  As  in  the 
sound  ranging  program,  this  query  refers  to  the  automatic  storage  of  target 
coordinates  and  times.  If  this  query  is  answered  in  the  affirmative,  all 
targets  stored  and  retained  in  previous  cycles  of  operation  will  be  recalled, 
end  targets  located  in  the  present  cycle  of  operation  will  be  numbered  sequen¬ 
tially  from  the  last  recorded  target. 

Note  that  sound  ranging  target  storaqe  is  slightly  different  from  that  of 
flash  ranging  in  that  the  former  only  records  target  number,  time,  easting, 
and  northing.  The  two  latter  programs  also  store  target  height.  If  the  query 
is  answered  in  the  negative,  all  earlier  targets  are  ignored,  and  the  first 
target  located  in  the  present  cycle  will  be  given  the  number  1.  Response  to 
this  query  leads  to  the  prompt  "enter  number  of  flash  OPs."  The  program  will 
permit  from  two  to  six,  with  the  example  considered  involving  four  OPs  at  the 


positions: 

OP 

Easting 

Northing 

Height 

1 

50361.40 

39503.22 

405.0 

2 

51503.30 

38803. 10 

412.0 

3 

52996.62 

38175.16 

428.5 

4 

53925.64 

37836.61 

410.9 

The  query  "are 

OP  coordinates 

stored?"  relates 

to  the  automatic 

storage  of  OP 

coordinates  on 

completion  of 

entry,  assuring 

that  voluntary 

or  accidental 

shutdown  will  cause  minimal  delay  to  operation.  The  operator  should  answer 
the  query  with  a  negative  response.  The  prompt  will  then  read  "enter  easting, 
OP  1."  Correct  response  will  cause  the  machine  to  demand  in  turn  northing  and 
height,  then  the  prompts  will  cycle  through  OP-2,  OP-3,  and  OP-4.  On 
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completion  of  the  entry  of  height  for  OP-4,  a  pause  in  the  program  sequence 
will  indicate  storage  of  OP  coordinates  for  flash  ranging  and  flash 
adjustment. 

After  entry  of  all  OP  coordinates,  the  query  “is  data  available,  OP  P"  will 
appear.  At  this  time  one  may  verify  the  OP  coordinate  entries  by  pressing 
(stop),  then  the  special  function  key  f,.  This  will  cause  OP  coordinates  in 
the  machine  to  be  listed  on  the  printer  for  verification.  Entrance  is 
automatically  made  to  an  editing  mode,  and  the  query  "are  OP  coordinates 
correct?"  will  appear.  If  no  mistake  is  found,  a  negative  response  will 
return  the  machine  to  the  query  "is  data  available.  Op  p"  if  a  mistake  is 
found,  say  in  the  northing  of  OP  3,  a  negative  response  will  result  in  the 
query  "which  OP  is  in  error?"  In  this  case  the  number  3  would  he  entered. 
The  proirpts  "enter  correct  easting,  OP  3,"  "enter  correct  northing,  OP  3,"  and 
"enter  correct  height,  OP  3"  allow  appropriate  values  to  be  entered.  After 
coordinates  are  entered,  the  query  "is  additional  editing  necessary7"  allows 
repetition  of  cycle,  or  causes  new  OP  coordinates  to  be  stored  against 
shutdown.  The  operator  should  answer  appropriately.  When  the  editing  cycle 
is  completed,  return  is  made  to  the  query  "is  data  available,  OP  1?"  This 
query  introduces  the  data  entry  phase  of  operation.  Suppose  that  the  OPs  in 
question  made  the  following  observations  relative  to  a  potential  target. 

OP  Azimuth  Vert  Angle 


1 

3521 

-6 

2 

3654 

-6 

3 

3817 

-8 

4 

3910 

-6 

The  level  one  data  entry  phase  for  both  flash  ranging  and  flash  adjustment 
begins  with  the  query  "is  data  available,  OP  1?"  If  an  affirmative  response 
is  received,  the  prompt  "enter  azimuth  (mils)  OP  1"  will  appear.  Successful 
entry  of  the  azimuth  for  OP  1  will  cause  the  value  to  appear  on  the  printer, 
and  the  query  "is  vertical  angle  available,  OP  1?"  Entry  of  a  value  for  the 
vertical  angle  will  cause  the  quantity  to  be  printed,  and  the  new  query  "is 
data  available,  OP  2?"  to  appear.  If  a  negative  response  is  given  to  this 
query,  a  single  asterisk  will  be  printed.  If  a  negative  response  was  given  to 
the  initial  query,  two  asterisks  will  appear  on  the  printer,  one  representing 
the  azimuth  and  one  the  vertical  angle  of  OP  1. 

When  a  response  has  been  received  for  all  OPs,  the  program  shifts  to  an 
editing  phase  to  correct  possible  errors  in  entries.  This  phase  is  introduced 
by  the  query  "is  input  data  correct?"  A  positive  response  will  exit  the  edit 
mode.  A  negative  response  will  initiate  the  query  "which  OP  is  in  error?" 
When  an  OP  is  specified,  the  prompt  "enter  correct  azimuth,  0P-"  will  appear, 
followed  by  "is  vertical  angle  available,  0P-?"  Affirmative  response  to  this 
query  will  result  in  the  prompt  "enter  vertical  angle,  0P-."  A  negative 
response  initiates  the  query  "is  other  data  in  error?"  An  affirmative 
response  repeats  the  editing  cycle;  a  negative  response  exits  the  edit  mode. 

A  convenient  level  two  option  exists  in  the  data  entry  phase.  When  the  query 
"is  data  available,  OP  1?"  appears  on  the  display,  the  azimuth  may  be  entered 
directly.  This  will  result  in  the  quantity  appearing  on  the  printer,  and  the 


query  "is  vertical  angle  available,  OP  1?"  appearing  on  the  display.  At  this 
time  the  vertical  angle  may  be  entered  directly. 

When  data  from  all  OPs  have  been  entered  and  the  program  has  exited  the  edit 
mode,  the  flash  ranging  target  is  computed.  If  the  above  data  have  been 
properly  entered,  the  printout  should  read: 


FLASH 

RANGING 

TARGET 

1 

easting 

47198.8 

northing 

29802.1 

he i ght 

359.4 

s  pread 

27.9 

This  output  is  the  coordinates  of  the  first  target  to  be  located  and  is  given 
the  number  1  as  indicated.  Recall  that  each  pair  of  lines  of  sight  from  OP  to 
target  leads  to  a  target  estimate.  The  coordinate-wise  median  of  the  set  of 
estimates  is  taken  as  the  true  target  coordinates,  and  the  radius  of  the 
smallest  circle  containing  all  estimates  is  the  spread. 

After  target  1  has  been  located,  the  prompt  "enter  day,  time  of  day,  ex 
060945"  appears.  This  prompt  allows  the  target  to  be  located  in  time;  a  six¬ 
digit  nunber  is  to  be  entered  for  which  the  first  two  digits  from  left  to 
right  are  the  day  of  the  month  and  the  last  four  are  time.  If  the  day  of  the 
month  is  a  single  number,  it  should  be  prefixed  by  a  zero.  Then  April  9  at 
1430  would  appear  as  091430.  Upon  entry  of  the  time,  the  machine  returns  to 
the  query  "is  data  available,  OP  P"  or  the  beginning  of  the  data  entry  cycle. 

Whenever  the  machine  is  in  the  data  entry  cycle,  a  list  of  targets  may  be 
obtained  by  pressing  "stop,"  then  special  function  key  8  f f •) .  The  listing 
will  be  titled  "FLASH  RANGING  TARGET  LISTING"  and  will  present  all  targets  in 
10-item  blocks.  After  each  set  of  10  targets,  the  query  “next  10  targets?" 
will  appear;  affirmative  answers  will  lead  to  a  list  of  all  targets,  at  which 
time  the  display  "ALL  TARGETS  LISTED!!!"  will  precede  return  to  the  data  entry 
phase.  A  negative  response  at  any  time  will  lead  directly  to  the  data  entry 
phase. 

A  special  option  is  automatically  entered  in  the  case  that  only  one  OP  should 
report.  As  an  example,  in  the  data  entry  phase,  answer  "is  data  available,  OP 
1?"  in  the  affirmative  and  enter  azimuth  3521  and  vertical  angle  -6.  Then 
answer  negative  to  "is  data  available,  OP  27"  etc.  When  a  negative  answer  is 
received  for  "is  data  available,  OP  4?"  the  heading  "OP  1  REPORTING"  will 
appear  on  the  printer,  and  the  display  will  read  "enter  distance  to  target,  OP 
1?"  When  an  estimate  of  distance  Is  given,  the  machine  will  list  look  angles 
for  all  remaining  OPs.  The  next  flash  may  then  be  picked  up  by  the  other  OPs 
and  a  better  target  location  result.  In  the  example,  the  distance  happens  to 
be  10202.  Entry  of  this  quantity  results  In  the  listing: 
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OP  1 

REPORTING 
dist  to  target 
10202 

set  azimuth 
OP  2 

at  3654 

set  vert  ang 
OP  2 

at  -7 

set  azinuth 
OP  3 

at  3817 

set  vert  ang 
OP  3 

at  -8 

set  azimuth 
OP  4 

at  3910 

set  vert  ang 
OP  4 

at  -7 

Compare  these  values  with  the  table  of  angles  supplied. 

If  only  two  stations  report,  a  warning  "WARNING  -  ONLY  2  OP  REPORTING!!!"  will 
appear.  Since  only  one  estimate  is  available,  the  spread  will  be  zero. 

At  least  one  vertical  angle  must  be  entered.  If  not,  an  error  message  "ERROR 
-  NO  HEIGHT  DATA"  will  result  with  subsequent  return  to  data  entry  mode. 
Special  function  key  11  (fn)  may  be  used  to  store  target  information  and  to 
call  the  index/transfer  program  exactly  as  described  in  earlier  discussions. 

The  usual  index/transfer  program  is  available  via  special  function  key  11 
(fii);  however,  one  may  directly  access  the  flash  adjustment  progran  by  use  of 
special  function  key  10  (fn).  All  located  targets  and  target  numbers  will 
automatically  be  stored  at  this  time. 

FLASH  ADJUSTMENT 

The  general  mechanisms  of  the  flash  adjustment  program  are  similar  to  those  of 
flash  ranging,  but  with  a  few  notable  exceptions.  The  flash  adjustment 
program  makes  no  provision  for  storage  of  targets,  and  the  first  query  after 
Initiation  is  "enter  number  of  flash  OPs?"  Following  the  example  given  in  the 
discussion  of  the  flash  ranging  program,  four  OPs  will  be  considered.  Those 
coordinates  are  repeated  here  for  convenience. 
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OP 

Easting 

Northi  nq 

He  i  qh  t 

1 

50361.40 

30603.2? 

406.00 

2 

51503.30 

38803.10 

412.00 

3 

52996.62 

38175.16 

428.50 

4 

53925.64 

37836.61 

410.n0 

At  the  query  "are  OP  coordinates  stored?"  if  the  flash  ranging  example  has 
been  completed,  one  nay  answer  in  the  affirmative;  if  not,  a  neqative  response 
will  initiate  the  OP  coordinate  entry  cycle  which  requests  in  turn  the 
easting,  northing,  and  height  of  OP  1  through  OP  4  in  ascending  order.  In 

either  case,  when  the  query  "REAPY  FOR  TARGET  PATA?"  appears,  verify  that 

coordinates  are  properly  recorded  in  the  machine  by  pressing  (stop),  then 
special  function  key  6  (ft).  If  all  events  have  taken  place  without  error,  a 

printout  should  appear  listing  all  OP  coordinates.  At  this  time  the  display 

should  read  "are  OP  coordinates  correct7"  If  no  mistake  can  be  found,  a 
positive  response  returns  the  machine  to  the  query  "REAPY  FOR  TARGET  PATA7" 
If  an  error  is  encountered,  the  operator  is  asked  to  supply  the  ninber  of  the 
OP  in  question,  then  easting,  northing,  and  height.  Note  that  a  complete  set 
of  coordinates  must  be  entered  even  if  only  one  coordinate  is  in  error.  This 
practice  results  in  considerably  less  operator  response  than  coordinate  by 
coordinate  queries.  As  each  set  of  coordinates  is  entered,  the  query  "are 
other  coordinates  in  error?"  allows  exit  from  the  editing  mode  or  a  repetition 
of  the  editing  cycle.  On  completion  of  editing,  the  new  coordinates  are 
stored  against  shutdown,  and  the  machine  returns  to  the  query  "RFApv  FOP 
TARGET  DATA?"  When  flash  adjustment  data  are  available,  press  (continue) 
which  will  initiate  the  data  entry  phase.  For  the  sake  of  brevity,  it  will  be 
merely  noted  at  this  time  that  the  data  entry  phase  of  flash  adjustment  is 
identical  to  that  described  in  the  discussion  of  flash  ranging.  For  the 
initial  target,  enter  the  data: 

OP  Azimuth  Vert  Angle 

1  3521  -6 

2  3654  -6 

3  3817  -8 

4  3P1 0  -6 

The  subsequent  printout  should  read: 

FLASH  RANGING 

TARGET 

easting  47199.4 

northing  29803.8 

height  353.1 

spread  29.7 

This  output  is  identical  to  the  earlier  flash  ranging  printout,  and  the  flash 
ranging  discussion  may  be  consulted  for  a  description  of  spread. 

At  this  time  the  display  should  read  "READY  FOR  ADJUSTMENT  DATA?"  This  query 
will  remain  on  display  until  adjustment  data  are  available,  at  which  time  the 
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data  entry  cycle  is  entered  by  pressing  (continue).  Since  target  and 
adjustment  data  entry  phases  are  identical,  it  is  suggested  that  as  a  reminder 
of  cycle,  displays  should  he  permitted  to  remain  until  appropriate  data  are 
ready  for  entry.  Now  press  (continue)  and  enter  the  following  adiustment 
data: 


OP  Azimuth  Vert  Angle 


1 

3532 

-7 

2 

3648 

* 

3 

3827 

-9 

4 

3900 

-6 

The  corresponding  printout  then  should  read: 


ADJUSTMENT  1 

right  201 

add  352 

up  13 

spread  2447.1 


The  size  of  the  shift  data  and  spread  would  indicate  a  poor  location,  and  data 
would  be  suspect.  At  this  time,  the  query  "another  adjusting  round'’"  win  he 
answered  in  the  affirmative.  Initiate  the  adjustment  cycle  and  enter: 


OP 


Azimuth 


Vert  Angle 


1  3520  -5 

2  *  * 

3  3815  -7 

4  3910  * 


The  resulting  printout  should  read: 


ADJUSTMENT  2 

left  17 

drop  19 

down  12 

spread  176.3 

FIRE  FOR 


EFFECT 


This  adjustment  is  adequate  as  reflected  by  the  "fire  for  effect"  indicator. 
The  program  is  now  awaiting  new  target  data.  It  should  be  emphasized  that  the 
display  "READY  FOR  TARGET  DATA9"  should  be  allowed  to  remain  until  new  target 
data  are  available.  Otherwise,  loss  of  position  in  the  operative  cycle  may 
result. 
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As  a  final  exercise,  initiate  the  target  cycle  and  enter: 


OP 

Azimuth 

Vert  Angl 

1 

3451 

-6 

2 

3587 

-7 

3 

3758 

★ 

4 

★ 

★ 

The  resulting  printout  should  be: 


FLASH 

RANGING 

TARGET 

2 

easti ng 

47944.5 

northing 

29894.4 

height 

352.7 

spread 

8.5 

Now  initiate  the  adjustment  cycle  and  enter: 


OP 


Azimuth  Vert  Angle 


1  3454  -7 

2  3581  * 

3  *  * 

4  3859  * 


The  subsequent  printout 

should  read: 

ADJUSTMENT 

FOR 

TARGET 

2 

right 

36 

add 

23 

down 

59 

spread 

665.4 

FIRE 

FOR 

EFFECT 


The  program  new  is  ready  for  the  next  target. 

The  auxiliary  "ONE  OP"  subprogram  in  the  flash  adjustment  program  is  identical 
in  operation  to  the  one  described  in  the  discussion  of  flash  ranging. 

At  this  time,  call  the  index/transfer  program  by  pressing  (stop)  then  special 
function  key  11  (fit).  The  operator  should  new  transfer  to  the  laser 
rangefinder  program.  Recall  that  the  special  function  key  10  (ft»)  may  be 
used  to  exit  the  flash  adjustment  program  and  serves  as  a  convenient  link 
between  flash  ranging  and  flash  adjustment. 
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LASER  RANGEFINDER 


In  a  manner  similar  to  that  of  sound  and  flash  ranqing,  the  laser  rangefinder 
program  proceeds  from  a  briefly  displayed  heading  to  the  initial  query  "are 
earlier  targets  stored?"  Comments  pertinent  to  target  storage  for  the  laser 
rangefinder  program  are  identical  to  those  regarding  flash  ranginq  and  will 
not  be  repeated.  The  query  "total  number  of  laser  OPs?"  when  answered,  leads 
to  the  query  "are  OP  coordinates  stored?"  Automatic  storage  of  laser 
rangefinder  OP  coordinates,  coordinate  display,  and  editing  options  follow  a 
line  exactly  similar  to  that  of  the  flash  ranging  or  flash  adjustment 
programs;  and  for  brevity,  the  description  will  be  omitted.  As  an  example, 
answer  the  query  "are  earlier  targets  stored?"  in  the  negative.  To  the  query 
"total  nunber  of  laser  OPs?"  the  operator  should  answer  A.  Answer  the  query 
"are  OP  coordinates  stored?"  in  the  negative,  then  enter: 


OP 

Easting 

Northing 

Height 

1 

0.0 

0.0 

0.0 

2 

59231.1 

29315.2 

405 

3,4 

0.0 

0.0 

0.0 

After  entry,  the  program  will  automatically  store  the  coordinates.  After  data 
storage  is  complete,  the  data  entry  phase  begins.  At  this  point,  it  is 
convenient  to  verify  the  laser  rangefinder  OP  coordinates.  Press  (stop),  then 
special  function  key  6  (f«).  OP  coordinates  will  appear  on  the  printer  with 
the  query  "are  OP  coordinates  correct?"  Answer  appropriate  queries  or 
prompts.  When  verification  of  data  has  been  completed,  the  machine  again  will 
return  to  the  data  entry  phase.  Enter  the  following  data: 

OP  Range  Azimuth  Vert  Angle 

2  9820.1  178  -5.2 

Observe  that  on  specification  of  the  OP,  the  heading  OP  ?  appears  on  the 
printer.  As  data  are  entered,  they  are  listed  on  the  printer  tor 

verification.  When  range,  azimuth,  and  elevation  have  been  entered  for  target 
1,  the  query  "is  input  data  correct?"  allows  a  repeat  of  the  data  entry  cycle 
if  an  error  is  encountered.  If  no  error  occurs,  an  affirmative  response  leads 
to  the  printout: 

LASER  RFDR 

TARGET  1 


easting  60  938.4 

northing  38985.6 

height  354.9 


Enter  appropriate  location  time  as  indicated. 


When  return  Is  made  to  the  data  entry  phase,  enter  the  data: 


Range 

Azimuth 

8540.4 

1400 

29 

Vert  Angle 


2 


-.5 


The  printout  now  should  he: 


» 


LASER  RFDR 

TARGET  2 

easting  67607.4 

northing  30QR1 . 3 

height  400. 8 

Again  enter  day  and  time  of  day. 

At  the  beginning  of  the  data  entry  phase,  press  (stop),  then  special  function 
key  8  (f«j- 


The  printout  should  be: 


LASER 

RFDR 

TARGET 

LIST 

target 

1 

time 

— 

easting 

60938 

northing 

38986 

height 

355 

target 

time 

2 

easting 

67607 

northing 

30981 

height 

401 

When  all  targets  are  listed,  display  will  briefly  read  "ALL  TARGETS  LISTED!  !!" 
and  return  to  the  data  entry  phase.  Exit  from  the  laser  rangefinder  mode  may 
be  made  via  special  function  key  11  (ft  t) ,  which  calls  the  general  index  and 
simultaneously  stores  all  target  locations  and  the  target  ntmber.  Special 
function  key  10  (fto)  may  be  used  to  store  targets  as  above  and  will  automati¬ 
cally  institute  the  laser  rangefinder  adjustment  program.  In  that  mode 
special  function  key  10  (fto)  will  reinitiate  the  laser  rangefinder  proqram. 
Special  function  key  9  (f»)  may  be  used  to  call  the  laser  rangefinder 
t ril ateration  program.  A  discussion  of  this  program  will  be  found  under  that 
heading.  The  operator  should  now  use  special  function  key  (fto)  to  call  the 
1  aser  rangefinder  adjustment  program. 

LASER  RANGEFINDER  ADJUSTMENT 

Adjustment  for  the  laser  rangefinder  differs  from  sound  on  sound  adjustment  or 
flash  adjustment  in  that  the  position  of  the  OP  is  not  required.  As  in  the 
other  fire  adjustment  techniques  mentioned  above,  no  provision  is  made  for 
target  storage,  therefore,  the  program  begins  with  the  query  "which  OP  is 
reporting?"  Recalling  the  example  used  in  the  laser  rangefinder  program, 
enter  2.  The  display  will  then  read  "READY  FOR  TARGET  DATA?"  following  the 
pattern  set  by  sound  and  flash  adjustment.  When  ready,  press  (continue). 
Recall  that  the  data  from  laser  rangefinder  were: 
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OP  Range  Azimuth  Vert  Angle 

2  9820.1  178  -5.2 

Enter  data  as  in  laser  rangefinder  proqram.  The  program  will  then  respond 
with  "READY  FOR  ADJUSTMENT  DATA?"  Enter  the  data: 

OP  Range  Az i mu t h  Vert  Angle 

2  9830  178  -5.2 

Observe  that  the  adjustment  round  will  be  downrange  to  the  right  of  the  tarqet 
so  that  the  correction  should  be  to  the  left  and  drop. 

The  printout  should  read: 


ADJUSTMENT 

1 

1  eft 

2 

drop 

10 

up 

0 

FIRE 

FOR 

EFFECT 

The  "fire  for  effect"  tag  will  appear  on  the  printout  when  the  adjustment 
round  is  no  greater  than  100  meters  from  the  target.  In  this  case  the  machine 
returns  to  the  query  "READY  FOR  TARGET  DATA?"  in  preparation  for  the  next 
run.  The  displays  "READY  FOR  TARGET  DATA?"  and  "READY  FOR  ADJUSTMENT  DATA? " 
will  always  remain  until  action  is  initiated  by  pressing  (continue).  This 
status  serves  to  indicate  the  current  operating  cycle,  and  (continue)  should 
not  be  pressed  until  the  operator  is  ready  for  data  entry. 


Now  press  (continue),  then  enter  the  data: 


OP 

Range 

Azimuth 

Vert  Angle 

2 

8540.4 

1400 

-.5 

followed  by  the  adjustment  data: 

OP  Range 

Azimuth 

Vert  Angle 

2 

8620 

1410 

-.7 

For  this  case  the  printout  will  read: 

ADJUSTMENT  1 


ADJUSTMENT  1 

1  eft  94 

add  68 

up  2 


and  the  display  will  read  "another  adjusting  round?"  One  new  has  the  option 
of  accepting  the  adjustment  or  performing  an  additional  one.  Answer  the  query 
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in  the  affirmative,  and  enter: 


OP  Range  Azimuth 

2  8550  1402 

The  printout  then  should  read: 

ADJUSTMENT  2 

left  13 

add  15 

down  1 

FIRE  FOR 

EFFECT 

The  display  will  read  "READY  FOR  TARGET  DATA?"  awaiting  next  input.  If  a  new 
OP  is  to  be  considered,  press  {stop),  then  special  function  key  6  (f»).  The 
query  "NEW  OP?"  will  appear  on  the  display.  The  program  will  be  activated 
when  the  (continue)  button  is  pressed.  The  display  may  be  used  as  a  reminder 
when  awaiting  OP  reports.  Targets  from  differing  OPs  will  be  numbered  in 
sequence.  If  a  special  function  key  is  pressed  by  mistake,  the  machine  will 
beep  and  the  message  "WRONG  KEY***  press  (continue)"  will  appear.  When 
(continue)  is  pressed,  the  machine  will  revert  to  the  data  entry  stage. 

A  normal  exit  from  the  laser  rangefinder  adjustment  program  may  be  made  with  a 
special  function  key  11  (fit).  However,  special  function  key  10  (ft>)  may  be 

used  if  it  is  desired  to  shift  to  the  laser  rangefinder  mode.  In  fact,  this 
key  may  be  used  to  alternate  between  programs.  The  operator  should  now 
examine  the  section  describing  the  laser  rangefinder  tril ateration  program. 

LASER  RANGEFINDER  TRILATERATION 

The  laser  rangefinder  tril ateration  proqram  may  be  employed  to  determine  the 
location  and  orientation  of  a  laser  rangefinder  OP.  Required  are  two  points 
of  known  survey  visible  to  the  OP  and  within  range  of  the  instrument. 
Required  also  is  a  crude  orientation  determined  by  coirpass  or  any  means  avail¬ 
able. 


Vert  Angle 
-.4 


Once  a  preliminary  orientation  has  been  established,  it  is  required  for  the  OP 
in  question  to  determine  ranges  and  angle  data  as  will  be  demonstrated  in  the 
following  example.  Coordinates  of  survey  points  are: 


Survey  Pt 


Easting  Northing  Height 


1  67607.4  30981.3  401.0 

2  60938.5  38985.7  355.1 


Now  assune  that  after  a  preliminary  orientation,  OP  1  observes  the  following: 


Survey  Pt 

1 

2 


Range 

8540.4 

9820.1 


Azimuth 

1600 

* 


Vert  Angle 

-.5 

-5.2 
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At  this  point,  call  the  laser  rangefinder  tril ateration  progran.  It  will 

generally  occur  that  this  program  will  be  initiated  when  the  existing  mode  of 

operation  is  laser  rangefinder  or  laser  rangefinder  adjustment. 

In  this  case,  time  may  be  saved  by  use  of  special  function  key  7  (f?).  If  at 
any  point  in  the  operative  cycle  of  either  proqran  the  key  (stop)  is  pressed, 
followed  by  (f»),  all  target  locations  and  the  total  number  of  targets  will  be 
stored  when  applicable,  and  the  laser  rangefinder  trilateration  program  will 
be  initiated.  A  reverse  capability  also  exists.  From  the  trilateration 
program,  direct  access  to  the  laser  rangefinder  and  laser  rangefinder  adjust¬ 
ment  programs  may  be  made  via  special  function  keys  8  and  9.  This  capability 

will  be  mentioned  in  more  detail  later  in  the  discussion. 

After  initiation,  the  general  fl  ow  of  events  is  as  follows.  A  brief  display 
of  the  program  title  is  followed  by  the  query  "what  is  total  nunber  of  OPs7 " 
This  expression  constitutes  a  link  between  the  laser  rangefinder  and 
trilateration  programs.  Up  to  six  different  laser  rangefinder  OPs  may  be 
simultaneously  considered,  but  it  must  be  stressed  that  the  nunber  established 
in  the  laser  rangefinder  program  and  the  one  employed  in  trilateration  must 
agree;  otherwise,  errors  may  result. 

Recall  that  in  the  discussion  of  the  laser  rangefinder  program,  the  example 
given  called  for  four  OPs.  Ops  1,  3,  and  4  were  assumed  unknown  and  0  was 
entered  for  all  coordinates.  OP  2  was  specified.  If  this  exercise  has  not 
been  completed,  do  so  at  this  time. 

To  the  query  "what  is  total  number  of  OPs?"  enter  four.  When  the  query  reads 
"what  OP  is  to  be  located?"  press  (stop),  then  special  function  key  6  (f«)  to 
obtain  a  listing  of  those  laser  rangefinder  OP  coordinates  present  in  the 
machine.  These  should  read: 


OP 

COORDINATES 

LASER 

RFDR 

OP 

1 

easting 

0.0 

northing 

0.0 

height 

0.0 

OP 

2 

easting 

59231.1 

northing 

29315.2 

height 

405.0 

OP 

3 

easting 

0.0 

northing 

0.0 

hel  ght 

0.0 
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OP 


4 


easting 

0.0 

northing 

0.0 

height 

n.n 

If  there  is  no  problem  with  the  coordinate  listing,  answer  the  query  "what  OP 
is  to  be  located?"  by  1.  At  this  point  the  coordinates  of  survey  points  1  and 
2  will  be  requested.  If  the  above  listing  is  in  error,  it  is  suggested  that 
the  laser  rangefinder  program  be  recalled  via  special  function  key  8  and  the 
exercise  as  discussed  earlier  be  carefully  performed. 

When  the  height  of  survey  point  ?  is  entered,  the  display  will  contain  the 
prompt  "rough  azimuth  to  survey  pt  1?"  At  this  time  it  is  suggested  that  a 
verification  of  the  survey  point  coordinates  entered  he  performed.  Press 
(stop)  then  special  function  key  7  (f»).  The  following  listing  should  appear 
on  the  printer: 


COORDINATES  OF 

SURVEY  POINTS 

survey  point  1 

easting  67607.4 
northing  30981.3 
height  401.0 

survey  point  2 

easting  60938.5 
northing  38985.7 
height  355.1 

The  display  should  contain  the  query  "are  survey  pt  entries  correct?"  Suppose 
that  a  typing  error  occurred  in  the  northing  of  survey  point  1  and  the  height 
of  survey  point  2.  Give  a  negative  response  to  the  query.  The  query  "which 
point  is  in  error?"  may  be  answered  by  either  1  or  2.  Use  1.  A  prompt  "enter 
correct  easting,  sv  pt  1"  will  be  followed  by  a  similar  request  for  northing 

and  height.  All  data  must  be  entered  as  requested.  The  query  "is  other 

survey  pt  in  error?"  must  now  be  answered  in  the  affirmative.  Upon  completion 
of  data  entry,  the  program  will  resume  at  the  pronpt  "rough  azimuth  to  survey 
pt  1?"  Enter  the  value  1600. 

Range  and  vertical  angle  to  survey  points  1  and  2  are  now  requested.  Upon 
satisfactory  entry,  the  resulting  printout  should  appear  giving  the  desired 
location  and  orientation. 
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Th  i  s  listing  wi  1 1  read: 


COORPINATES 


OP 

1 

easting 

59231.1 

northi ng 

2Q315.3 

height 

405.2 

♦RACK 

AZIMUTHS* 

survey  pt 

1 

1400 

survey  pt 

2 

178 

From  the  back  azimuths  listed,  a  precise  orientation  is  possible. 

The  display  now  should  read  "is  another  OP  location  desired7"  At  this  point 
it  may  be  worthwhile  to  demonstrate  the  insensitivity  of  the  algorithm  to  the 
value  of  the  approximate  azimuth.  Answer  the  above  query  in  the 
affirmative.  Now  press  (stop),  then  special  function  key  fi  ff»).  Observe 
that  the  listing  now  contains  the  coordinates  of  OP  1  as  estimatpd  by  the 
trilateration  program.  Now  the  attempt  will  be  made  to  locate  OP  3.  Reenter 
the  same  survey  points  as  before;  but  as  an  approximate  azimuth,  use  2000. 
Continue  to  enter  ranging  data.  The  resulting  printout  should  be  identical  to 
that  of  OP  1.  Now  repeat  the  procedure  for  an  approximate  azimuth  of  1200  but 
for  OP  4;  again  the  printout  should  be  identical.  When  the  query  "is  another 
OP  location  desired7"  appears,  answer  in  the  negative.  The  expression 
"PROGRAM  COMPLETED!!!"  will  now  appear  on  the  display.  Hse  special  function 
key  6  (ft)  to  observe  what  coordinate  locations  have  been  determined.  OP  1, 
OP  3,  and  OP  4  should  be  identical  and  represent  the  coordinates  of  OP  1  as 
determined  by  the  trilateration  program.  OP  2  i s  the  true  coordinates.  Now 
special  function  keys  8  and  9  (f»  and  f»)  may  be  used  to  access  in  order  the 
laser  rangefinder  adjustment  and  laser  rangefinder  programs.  Call  the 
former.  When  the  query  "are  OP  coordinates  stored7"  appears,  answer  in  the 
affirmative;  then  use  special  function  key  f  (f,)  to  display  -oordinates. 
Note  that  these  are  the  coordinates  located  by  the  trilateration  program.  Now 
enter  the  following  data: 

OP  Range 

4  9820.1 

The  printout  should  be: 

LASER 
TARGET 

easting 
northing 
height 

This  serves  as  a  verification  of  the  cross  coupling  of  the  laser  rangefinder 
and  laser  rangefinder  trilateration  proqrans. 


Azimuth  Vert  Angle 
178  -5.2 


RFPR 

1 

60938.4 

38985.7 

355.1 
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SECTION  2 


PROGRAM  LISTINGS 


LISTING 

INDEX/TRANSFER 

PROGRAM 

FILE  0 
PTAP  -  2 


0;  prt  "TO  CALL  DESIRED  PROGRAM*’ j  spc 
It  prt  "ENTER  PROGRAM  NUMBER";spc 
prt  "PRESS  CONTINUE"; spc 
prt  "1  SOUND  RANGING" 
prt  "2  SOUND  ON  SOUND" 
prt  "3  VISUAL  MET." 
prt  “4  FLASH  RANGING" 
prt  "5  FLASH  ADJT." 
prt  "6  LASER  RFDR . “ 
prt  "7  LASER  RFDR.  ADJUSTMENT" 

10:  prt  "8  LASER  RFDR.  TRILATERATION" ; spc 

11:  ent  “enter  program  number", N 

12:  if  N=1)ldf  2 

13:  if  N=2; Idf  8 

14:  if  N=3; Idf  12 

15:  if  N=4 j Idf  14 

16:  if  N*5; Idf  19 

17:  if  N=6 5 Idf  22 

13:  if  N=7 j Idf  27 

19:  if  N=8 ; Idf  30 

20:  end 

*11145 


2 
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LISTING 


SOUND  RANGING 
PROGRAM 
FILE  1 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  SOUND  RANGING  PROGRAM 


FILE  2 


fo: 

♦beep ;  dsp  "WRONG  KEY! 

PRESS  (continue)";  gto  10 

h- 

♦beep;  dsp  "WRONG  KEY! 

PRESS  (continue)1’;  gto  10 

^2" 

♦beep;  dsp  "WRONG  KEY! 

PRESS  (continue)”;  gto  10 

U- 

♦beep;  dsp  "WRONG  KEY! 

PRESS  (continue)”;  qto  10 

U: 

♦beep;  dsp  "WRONG  KEY! 

PRESS  (continue)”;  gto  10 

f5: 

♦dsp  "YISUAL  MET.  PROGRAM  INITIATED”;  ref  6,  G; 
ref  7.  U[*];  ldp!2 

f6: 

♦cont  "mike" 

f7: 

♦cont  "met  1" 

f8: 

♦cont  "TARGET" 

f9; 

♦cont  "timing" 

f10: 

♦dsp  "ADJUSTMENT  MODE 
ref  7,  U[*];  ldp8 

INITIATED";  ref  6,  G; 

fll: 

♦cont  "INDEX" 
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ft  .  dim  AC6.3J,BC6,3J.C£t OJ .Dr6.?3.E£6,3J,MC6J,TC  1  ©3  .  QC 33  .  .*.£6, 2 3  .  SE  3 3 
t:  dim  04C33,PE103.Hf63,2E2.23,Gf63.V£63.0E10.43 

2.  dim  UC100,33,NC63,R£23 

3.  dsp  '  SOUND  RANG  INC " ; 1 dk  3;ldf  4,r1,r4 

■i:  ent  "are  earlier  targets  stored  ,  Q< ;  i  f  :  ina  U:0;gto  6 

5 :  la*  6, G; ldf  7, UC*3 

6 ;  ent  "how  many  mikes  in  sound  base  ')",N 
?:  0  >H  C  4  3 

x :  ent  "are  mike  coordinates  stored  ?“,Qi 
a :  if  us*  "  -  “  ;  gto  t  2 
)  u  i  1  d f  5,  A  C  3 
It:  gto  24 

12:  fxd  Ojfor  I=N  to  1  by  -1 

i 3 :  dsp  "enter  casting/ < meters  >, mike" , N+ 1 -I 
14:  ent  " " ,At I, 13 

15:  dsp  "enter  northing ,< meters >  mike"/N+t-I 
1 6 :  ent  " AC  I , 23 
17:  next  I ; gto  23 

la:  ent  “are  mike  coordinates  correct  ?",Q4;if  QS="  +  ".:gto  24 
19:  ent  “which  mike  has  error  in  coord.  ?",r26 

20:  fxd  U;dsp  “enter  correct  east  ing, mike ", r 26 ; ent  . ACN-r26+1 , 1 3 

2):  dsp  "enter  correct  north ing, m ike r26: ent  “ " , ACN-rib+l , 23 
22:  ent  "are  other  coordinates  in  error  ?”,Qt;if  Q4="  +  ‘‘;gto  19 
23;  ref  5,AE*3jrcf  11,AE*3;fdf  5 
24 :  0>r 1 1 ; GJr 1 2 

25;  for  1  =  1  to  N;AC1, 1 3 >YC I  3 ; AE 1 , 23 3GCI3 ; next  I 

26;  for  1  =  1  to  N;r1  1+YCI3>r1  1  j  r  1 2+GCI3  >r*  J  2  J  next  I ;  r  11  /N>r  11  r  1  2/N>r  1  2 

27:  for  1  =  1  to  N; AC  1 , 1 3-r 1 1 >AC 1 , 1 3 ; AE 1 , 23-r 1 2>AC 1 , 23 j next  I 

28:  if  abs<  ACN, 1 3-AC1 , 1 3  )#abs<ACN,23-AC1 ,23  >;gto  34 

29:  if  ACN, 1 3-AE 1 , 1 3=ACN,23-AC 1 , 23  j  gto  32 

30:  if  ACN, 1 3-AC 1 , 1 3>0;gto  42 

3 1  :  sf g  5; gto  40 

32:  if  ACN,23-AC1,23>0; gto  42 

33:  sfg  5;gto  40 

34:  if  max<abs< ACN, 1 3-AC 1 , 1 3 >, abs< ACN,2]-AC 1 , 23 >>  =  abs< ACN,23-AC 1 ,23 >;sfg  12 
35:  if  f lgl 2; gto  37 
36:  gto  38 

37:  gsb  "rot1“ 

38:  if  ACN, 1 3-AC1 , 1 ]>0;gto  42 
39:  sfg  5 

40:  for  I=N  to  1  by  - 1 ; AC  1 , 1 3 JBCN- 1  + 1 , 1 3 ; AC  1 , 23  3BCN- 1  + 1 , 23 > next  I 

41;  sfg  4; gto  44 

42:  for  1=1  to  N 

43:  ACI,133BCI,13jACI,23>BCI,23j  next  1 
44:  if  flg12;gto  46 

45:  for  1  =  1  to  N; YE  1 3 3AE 1 , 1 3 j GE I  3 3AC 1 , 2 3 j next  Ijgto  47 
46:  for  1=1  to  N ;  YE  I  3+r  1 2  >A  1 1 ,  1  3  ,•  GE  I3-r  11  >AC  1 , 2  3  ;  next  I 
47:  if  NC43*1 j 0)NC43;gto  51 

48:  ent  “is  new  met.  message  available  ?",Q$ 

49:  if  Q4*">" ; cf g  8;gto  "met" 

50:  sfg  8 
51 :  ina  Mi  0 
52 ;  fxd  0 

53:  for  I *N  to  1  by  -Ijfxd  0 

54;  dsp  "is  brk  ,  time  aval  lable,  mike" ,  N-I  +  1 ent  "”,Q# 
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55:  if  Q#» * - “ • gto  59 
56:  if  Q*-"+"jgto  58 
57:  I >HCI3;val< Q$  >>AC I , 33 ; gto  60 

58:  1)MCI3;dsp  "«nt«r  break  t i me , mi ke “ , N+ 1  - I ; ent  "  ",ACI,33 
59:  if  MlI3-0jprt  “  *“;gto  61 

60:  fxd  3 j pr t  ACI,33 
61:  next  I;  spe  2;fxd  0 

62:  ent  "are  break  times  correct  ?“,Q$ 

63:  if  Q$*"+" ; gto  72 

64:  pr t  "  BREAK  TIME  EDIT" spe 

65:  ent  “which  mike  has  break  time  error?", r30 
66:  fxd  Ojprt  "mike“,r30 

67:  dsp  "enter  correct  break  time, mike" , r30; ent  “ " , A C N-r 30+ 1 , 1 3 
68:  fxd  3 ; pr t  ACN-r30+1 , 33 ; spe 
69:  1 )MCN-r30+1 3 

70:  ent  "is  another  break  time  in  error  ?M,G$;if  &*="+' •.  gto  65 
71 :  spe 

72:  0>r5 ; f or  I-N  to  1  by  - 1 ; i f  M£I3=0;gto  74 

73:  r5*1  >r5)ACI,33}BCN+1-r5,33 

74:  next  I 

75:  if  r5>*3;gto  77 

76:  dsp  "ERROR-less  than  3  mikes  entered" ; wait  5000;  gto  4:3 
77:  if  r5*N ;  gto  88 

78:  for  I-N-r5+1  to  N; BCI , 33 >BC I-N+r5, 33 j next  I 
79:  for  I=*r5+1  to  N; 9999999 38CI , 33 ; next  I 
80:  if  flg4;gto  82 
81 :  gto  86 

82:  for  I=*r5  to  1  by  - 1 ; BC I , 33 3YCr5-I + 1 3 ; next  I 

83:  for  I-N  to  1  by  - 1 ; ME  13 3GCN- 1  + 1 3 ; next  I 

84:  for  I«1  to  r5 ; Yt I  3 >BI 1 , 33 ; next  I 

85:  for  I«1  to  N j GC  I  3 3MCI3 ; next  I 

86:  r5>r26 

87:  gto  94 

88:  if  flg4jgto  90 

89:  gto  94 

90:  for  I*r5  to  1  by  - 1 ; BC I , 33 >YCr5-I+ 1 3 ; next  I 

91:  for  I-N  to  1  by  -1 ; M[ 1 3 3GCN-I+ 1 3 ; next  I 

92:  for  1-1  to  r5; YC I  3 3BC 1 , 3 3 ; next  I 

93:  for  I«1  to  N ;  GCI3  3MCIJ  ;  next  I 

94:  r5- 1  >CC  1  3 ;  r5-2>C£23  ;  CU3CC2  3/2JCC33  ;  r5>C  t  A  3 

95 :  deg 

96:  r53r26 

97:  0>r5>r6)r7;337,5>CC53 

98:  if  flglOjcfg  10;gto  103 

99:  for  I»1  to  N;r5+MCI33r5 

100:  if  MC I  3-0; gto  102 

101:  BCI, 1 3>BCr5, 1 3 jBCI ,23)BCr5,23 

102:  next  I 

103:  r26>r5 

1 04:  for  1-1  to  CC1  3 

105:  BCI  +  1  ,  U-BCI,  1  3  3DCI  ,  1  3  j BCI+1  ,23-BC  1 , 23  30C  I  ,23 
106:  N< DC  I,  1 JDC I, 1 3+DC I, 23DC I, 23  >3D£ I, 33; DC  I, 33/CC5 3  >D[  I  , 43 
107:  <B£I  +  1 , 13+BCI, 1 3  3/2JXCI, t  3;<B£I+1 ,23+6£I,2  3 >/2>X£I , 2  3 
108:  BCI, 13)SC1];DCI,23>SC23; gsb  "atan2“ 

109:  if  SC 33  >270  j  SC33-360  3SC3  3 
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110:  SC33-903SC33 
111:  SC33>DCI,53;next  I 

1 12:  r3/283 . 1 6 >QC 1 3;C£53CC5]QC1 3  >Qf  23 : SQt 1 3-1 >QC3 ] 

113:  deg 

114:  r1)SC13;r2)SC23; gsb  “atan2" 

115:  St 33  38 

116:  S<r1rH-r2r2)JW 

117:  for  1-1  to  CC 1 3 ; BC I , 33-BC 1*1 , 3 3 )D£ 1 , 6 3 ; DC  1 , 5 3-8  +  90 >GC I  3 ; ne xt  I 

118:  for  1-1  to  Ctt 3 ; D 1 1 , 63QE 3 3 >E 1 1 ,  13 

119:  DC  1 , 33cos<  GC I  3 )< -W >/QC 2 3 >E C I , 2 3 

120:  DC  I , 63+ECI , 1 3+EC 1 ,23>DCI , 63 

121:  next  I 

122:  rad 

123:  for  1-1  to  CtUjif  abs< DC  I , 6 3 /D C 1 , 4 3 > > 1 ;  gto  125 
124:  asn<DCI,63/DCI,43  >>HC13;gto  126 

125:  DCI,63/DCI,43/ab*<DCI,63/DCI,43>>CC63)asn<CC63  >>HCI3 

126:  if  f lg4;gto  128 

127:  Ht I  3 +f DC  1 , 5 3/1 8G3PC 1 1 ; gto  129 

128:  C-Ht I 3  +  CD  C 1 ,53/180>PC 1 3 

129:  next  I 

130:  gto  148 

131:  "met“:degjif  flg8;cfg  8;gto  94 

132:  ent  "enter  effective  temp , < C . , r3 

133:  r3+273 . 1 6>r3; 20 . 06Sr3>r4 

134:  ent  "enter  ef f .  wind  speed< knots >", r8 

135:  ent  “enter  ef f .  wind  direction< mi  1* , r9 

136:  r8*.5146789>r8;r9/l7.7777??8)r9;-r8sin<r9>}r1 ; -r 8co*< r 9 > >r 2 

137:  if  f lg)2;gto  139 

138:  ref  4,r1/r4;rcf  10,r1,r4jgto  50 

139:  -r2>F; r 1 3r2 ; F>r 1 j ref  4,r1,r4;rcf  10,r1,r4;gto  50 

140:  “atan2":if  SC23-0;gto  145 

141:  atn<  SCI 3/SC23  )3SC3J 

142:  if  SC23<0;SC33+180>SC3];ret 

143:  if  SC33  >0 ; ret 

144:  SC33+3603SC33 jret 

145:  if  SCI  3*0; 0>St33;ret 

146:  if  SCI 3>0;90>SC33;ret 

147:  2703SC33  j ret 

148:  deg 

149:  0  3M; rdm  SC23 
150:  for  1=1  to  CC23;I+1JK 
151 :  for  J-K  to  CC1 3 
152:  M+ 1 >M 

153:  1 >ZC 1 , 1 3 j -tan< -1 80+PC I  3*1 80/< >>ZC 1 , 23 ; 1 >ZC2 , 1 3 

154:  -tan< -1 80+PC  J3*1 80/< >3ZC2,23 

155:  XCI ,  1 3-tan< -1 80+PC 13*1  8  0/C >XC 1 , 2  3  >St 1 3 

156:  XC  J,  1  3-t»n<-1 80+PC  J3*180/<  >XC  J,2  3>SC23 

157:  inv  Z)Zj»at  ZS3R j R£13 )0CM , 13 30CM, 33 ; RC23 30CM , 23 30CM , 4 3 

158:  next  J 

159:  next  I 

160:  rdm  St 3 3 

161:  rad 

162:  rdm  TC103jina  T:-9999999 

163:  rdm  PC103;ina  P: -9999999 

164:  <  r5- 1 X r5-2 )/2>CC 1 0  3 ; CC 1 03- 1 >r13 
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165:  for  J»t  to  r13 

166:  for  K-J  to  CC 1 03 j OCK , 1 3 3TCK3 

167:  OEK,23)PCK3 

168:  next  K 

169:  mx(  TC  +  3  >>r8j  aax(  Pt*3  >ir9 

170:  if  OC J, 13-r8;-999999)TC J3;gto  176 

171:  for  2-J  to  CC103;if  r8#0C2, 1 3 ; gto  173 

172:  2>L 

173:  next  Z 

174:  0CJ, 1 3>r14;r8>OC J, 1 3;r14)0CL, 1 3 
175:  if  OC J,23-r9j-9999999>PC J3;gto  180 
176:  for  Z-J  to  CC103;if  r9#0CZ, 23 ; gto  178 
177:  Z>L 
1 78 :  next  Z 

179:  OC  J,23)r14;r9>OC  J,23,-r14>0CL,23 
180:  -9999999 )TC  J3 j -9999999 3PC  <J3 
181:  next  J 

182:  if  CC103eod2-0;gto  184 

183:  int<  CC  1  0372  >+1  >r8;  0£r8,  1  3  >r  1  3 ;  OC  r8 , 2  3  3r  1  4 ;  gto  186 

184:  CC1 0372>r8;r8+1 3CI83 j r8>C£ 93 : < Cl C l 8 3 , 1 3  +  OC C E 93 , 13 >/2>r13 

185:  <OCCC83,23+OCCC93,23 )72>r 1 4 

186:  if  flg2;gto  196 

187:  for  1-1  to  CC1 3 

188:  r13-BCI,  13>YC13)r  14-BC  1,23  )YC23;  1  +  1  )S 
189:  M3-BCS, 1 3 3YC33 > r 1 4-BCS , 23 3YC43 

190:  DC 1,3301 1,33 3YC53; YE33 YC33+YC43YC4 3 3YC63; Y[ 1 3YC13+YE23YC233GC13 
191 :  SGC13>CC23;SYC63)GC33;<GC 1 3+YE63-YC5  3  >72CC23GC33 3GC4  3 
192:  acs<  GE43 )>GC53 ) *in< GC5 372 33GC63 ; S< 1+GC63GE6  3  >>R 
193:  DII,63<R-1 >3DC 1 , 73 ; DC  1 , 63+DC  1 , 73  3DC 1 , 63 ; next  1 
194:  sfg  2;gto  122 

195;  0)r5:for  1*1  to  N; r5+MC I  3 3r5; next  I 
196:  if  r5-3;gto  197 
197:  if  flg12:gsb  "rot2" 

198:  fxd  0 ; prt  "SOUND  RANGING  TARGET  ",G+1;spc 
199:  fxd  1;prt  "east i ng" , r 1 3+r 1 1 ; spe 
200:  prt  "northing" , r 1 4+r 1 2, •  spe 
201 :  gsb  "spread" 

202:  prt  "spread" , eax< TC  +  3 >; spe 
203:  G+13G 

204:  ent  "enter  day, time  of  day  ex,  061350", r33 
205:  fxd  Ojprt  "time" , r33; spe  2 

206:  if  G*od100»0jdsp  "100  TARGETS  RECORDED!!? “jus it  4000 
207:  Gmodl 03r32; if  r32mod1 0®0) gto  210 
208:  1 1 -r32)r32 

209:  r 1 3+r 1 1 )UCr32, 1 3 ;r 1 4+r 12 3U tr 32, 23jr333UCr 32 >33; gto  215 
210:  r 1 3+r 1 1 }U£ 1 , 1 3  j  r 14+r 123UC 1 , 2 3  j  r33 )UC 1 , 33 

211:  for  1-90  to  1  by  -1 ;UC I, 1 3 >UC 1+1 0, 1 3 ; UCI ,23 >UC 1+1 0, 23 j UC I , 33 3UCI  + 1 0 , 33 
212:  next  I 

213:  ref  6,Gjrcf  7,UC+3 

214:  for  1-1  to  1 0; 0>UC I , 1 3 >UC I , 23 >UC I , 3 3 ; next  I 

215:  for  1-1  to  N ) AC  1 , 1 3 >Y£ 1 3 ; AC  1 , 23 >GC 1 3 ; next  I 

216:  ldf  5, AE-3 ; cfg  12 

217:  sfg  1;cfg  2;cfg  3jcfg  7;gto  27 

218:  "rotl " i ina  Y:0;ina  G:0 

219:  deg j  for  1-1  to  Nj -ACI , 23 )YC I  3 ; At  1 , 1 3 3GCI3 ; next  I 
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220:  tor  1  =  1  to  N j Y£ I  3 3AC I ,  1 3 ; C£ 1 3 >AC I , 23 j next  I 

221:  ret 

222:  "r ot2 “ : deg; r 1  4 >Y£ 1 3;-rt3>Y£23 
223;  Y  £  1 3  >r  1  3 ; YC2  3  >r 1 4  j  r et 
224 :  “timing" : 

225:  dsp  "  BREAK  TIME  READING  ASS  I  STANCE ": wa i t  2000 
226:  ent  "use  coordinates  of  last  target?  ?",Q* 

227:  if  u*=" +“;gto  233 

228:  ent  "enter  east ing , est i mated  tar  get " , r t 3 ; r 1 3-r 1 1 >r 1 3 
229:  prt  "ESTIMATED  TARGET" jspc 
230:  prt  " east i ng “ , r 1 3+r 1 1 

231:  ent  “enter  northing , estimated  target " , r 1 4 ; r 1 4-r 1 2>r 1 4 
232:  prt  " north i ng “ , r 1 4  +  r 1 2 ; 3pc 
233:  if  f  1  g  1  2  j gto  235 
234 :  gto  236 

235 :  -r 14>YC 13 }r1 3>Gt 1 3; YC 13  >rt3 jGC 13  >r14 

236:  ent  “which  mike  has  sharpest  break  ?",NC13 

237:  fxd  0;dsp  "enter  break  t ime, mike " , NC 1 3 j ent  "H,N[2J 

238:  ldf  5 ,  A  C  *  3 

239:  for  1=1  to  N; A£ I , 13-r 1 1 >B£ I , 1 3 j AC1 , 23-r 1 2>BC I , 23 ; next  I 
24  0:  if  fig  12; gto  242 
241 :  gto  244 

242:  for  1  =  1  to  N ; -B C 1 , 23 >YC I  3 ; BC 1 , 13 >GC 13 
243:  YCI33BCI, t]jGCI3>BtI,23jnext  I 
244:  S<rlr1+r2r2)>U 

245:  for  I*t  to  N ; < r 1 3-B C I , ID  X r 1 3-B£ 1 , 1 3 >+< r 1 4-BC 1 , 2 3 X r 1 4-6 Cl , 2 j  ) >G £  1 1 
246:  rUBCI,  13-r  1  3  >+r2<  B  £  1 , 2  3 -r  1  4  )  >  Y  £  13 

247:  <  -  YC  I  ]+\<  YC  I  3YC  I  3+<  r4r4-WW  >GC  I  3  >  )/(.  r4r4-WW  >>TC  I  3  ;  next  I 

248:  TCN-NC 1 3+1 3-NC23 3NC33 

249:  for  1*1  to  N ; T C I  3 -N C 3 3 )T C I  3 ; next  I 

250:  prt  "BREAK  TIMES  NORMALIZED  TO  MIKE” , N£ 1 3 ; spe  2 

251 :  for  I=N  to  1  by  -1 
252:  fxd  0;prt  "mike" ,  N- 1+1 

253:  fxd  3;prt  “brk .  t i me " , T £  I  3 ; spe  snext  I 
254 :  spe  2 

255:  cfg  12; 1 >NC43;gto  24 
256 :  "mike" : ldf  5 , AC  *  3 
257:  prt  “MIKE  COORDINATES spe 
258:  for  I=N  to  1  by  -1 

259:  fxd  0;prt  "mike" , N-I+1 j fxd  Ijprt  "east ing" , AC  1 , 1 3 ; prt  "northing" , AC  1 , 23 

£60:  spe  1;next  I; spe  2 

26 1  :  gto  1 8 

262 :  "met  1 " : deg 

263:  prt  "MET.  VALUES"; spe 

264:  fxd  Ijprt  "temp . " , r3-273 . 1 6 j spe 

265:  prt  "wind  spd . " , S< r 1  * 2+r2 * 2 >7 . 51 46789 j spe 

266:  if  flg12;-r23SC1 3jr1>SC23;gsb  "atan2" 

267:  if  f lg 1 2; gto  269 

268:  -rt 3SC1 3;-r2>SC23 jgsb  "atan2" 

269:  S£33*17.777777?8»od64Q0>SC33 

270:  fxd  0 ; prt  "wind  dir . " , SC33 ; spe  2 

271 :  gto  48 

272:  "spread" : ina  T:0 

273:  if  f lgl 2; gto  275 

274:  for  1  =  1  to  CC 1 03 j S< < OC 1 , 33-r 1 3  )‘2+< OC 1 , 43-r 1 4 >' 2  ))TC 1 3 ; next  I:ret 
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27 5:  for  I- 1  to  C 1 1 0] ; \< < OC 1 , 3 3 +r 1 4 V 2+< OC 1 , 4 1-r 1 3 ; 2 > J T [ I] ; ne » .t  .  -  €* 

276:  "TARGET"  :prt  “  SOUND  RANGING  TARGET  LIST" ;  spc  0)SCU 

277:  for  1*1  to  int< G/1 0 >+1 

278:  if  1  0<  I  - 1  ><*C;  1-1  )L 

279:  next  I 

280  :  f  xd  0;fo"  I*10<L+1)  to  1 1 -G+1 0L  by  - 1  ;  pr  t  "  t  ar  get ",  1  0*.  L  +  i  <  -  I  ♦  i 
281 :  prt  "time",UCI,3D 

282:  prt  "casting" , UC 1 , 1  I ; prt  “northing" , UC 1 , 23 : spc  2 

283:  SIlltDSm 

284:  if  SCIlmodl 0>0;gto  236 

285:  cnt  "list  next  10  targets  ?",Q$;if  Q*="-";gto  47 
286:  next  I 

287:  dsp  "  ALL  TARGETS  LISTED!! 1 wait  400Q;ato  47 

288:  "INDEX" :rcf  6.G;rcf  7,UC*3 

289:  prt  "TO  CALL  DESIRED  PROGRAM" ; spc 

290:  prt  “ENTER  PROGRAM  NUMBER"; spc 

291:  prt  "PRESS  CONTINUE" ; spc 

292:  prt  “1  SOUND  RANGING" 

293:  prt  “2  SOUND  ON  SOUND" 

294:  prt  “3  VISUAL  MET." 

295:  prt  "4  FLASH  RANGING" 

296:  prt  "5  FLASH  ADJT." 

297:  prt  "6  LASER  RFDR , “ 

298:  prt  "7  LASER  RFDR.  ADJT." 

299:  prt  “8  LASER  RFDR.  TRILATERATION" ; spc  2 

300:  ent  "enter  program  number". N 

301 :  if  N= 1 ; ldp  2 

302:  if  N*2j ldp  8 

303:  if  N=3 ; ldp  12 

304:  if  N*4  j ldp  14 

305:  if  N*5;ldp  19 

306 :  if  N=6; ldp  22 

307:  if  N=7 ; ldp  27 

308:  if  N*8; ldp  30 

309:  end 
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LISTING 


SOUND  ON  SOUND 
ADJUSTMENT  PROGRAM 
FILE  7 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  SOUND  ON  SOUND  ADJUSTMENT  PROGRAM 

FILE  8 


V 

♦beep;  dsp  "WRONG 

KEY! 

PRESS 

(continue)"; 

gto 

10 

♦beep;  dsp  "WRONG 

KEY! 

PRESS 

(continue)"; 

gto 

10 

*2: 

♦beep;  dsp  “WRONG 

KEY! 

PRESS 

(continue)" ; 

gto 

10 

f3: 

♦beep;  dsp  "WRONG 

KEY! 

PRESS 

(continue)"; 

gto 

10 

f4: 

♦beep;  dsp  "WRONG 

KEY! 

PRESS 

(continue)"; 

gto 

10 

fs- 

♦dsp  "VISUAL  MET. 

PROGRAM  INITIATED";  ldp!2 

V 

♦cont  “mike" 

f7- 

♦cont  "met  1" 

00 

♦beep;  dsp  "WRONG 

KEY! 

PRESS 

(continue)"; 

gto 

10 

f9: 

♦cont  "timing" 

f10: 

♦dsp  "LOCATION  MODE  INITIATED' 

;  ldp2 

fll: 

♦cont  "INDEX" 
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0:  dia  AC6,33,BC6,33,CCt03,DC6,73,EC6,33,MC63,TC103,GC33,XC6,23,SC33 
1:  dia  Q*C73,PC1 03 , HE63 , ZC2 , 23 , Gt 63 , YC63 , OC 1 0,63 
2;  dia  NC63,RC23 

3:  dsp  "  90UND  ON  SOUND  ADJUSTMENT “ ; w< i t  3000 
4 1  ldk  9 j  0>A 
5 :  ldf  1 0, r 1 ,r4 

6:  ant  "how  aany  aikcs  in  sound  base  ?",N 
7  :  03NE43 

8:  ant  "are  aika  coordinates  stored  ?",QS 
9:  if  QS«"-*;gto  12 
10:  ldf  1 1 , AC*3 
11:  gto  26 

12:  fxd  Ojfor  I-N  to  1  by  -1 

13:  dsp  "enter  easting, < meters >, aike ", N+1 -I 

14:  ant  "H,ACI,11 

15:  dsp  "enter  northing, <aeters )  aike“,N+1-I 
16:  ant  "",AEI,23 
17:  next  Ijgto  23 

18:  ant  "are  aike  coordinates  correct  ?",Q*jif  Q*=M+“;gto  50 
19:  ant  "which  aike  has  error  in  coord.  ?",r26 

20:  fxd  0;dsp  "enter  correct  easting, mike" , r26; ant  " " , ACN-r26+1 , 1 3 

21  :  dsp  "enter  correct  northing,  aike”  ,  r26;ent  , ACN-r26+ 1 , 23 

22:  ent  "are  other  coordinates  in  error  ?",Q*;if  Q*="+" ; gto  19 

23:  ref  5,At*3 

24:  ref  11,AC*3 

25:  fdf  11 

26:  0>r 1 1 } 0>r12 

27:  for  1-1  to  N; AC  1 , 1 3 >YC I  3 ; AC  1 , 23  3GC 13 j next  I 

28:  for  1-1  to  N; r 1 1 +YC I  3 >r 1 1 j rl 2+GC I  3 >r 1 2; next  I ; r 1 1 /N>r 1 1  : r 1 2/N)r 1 2 

29:  for  1-1  to  N j At  1 , 1 3-r 1 1 >AE 1 , 1 3 ; AC  1 , 23-r 1 23AC 1 , 23 ; next  I 

30:  if  abs< ACN, 1 3 -AC  1 , 1 3  >«abs< ACN,23-AC1,23  >; gto  36 

31:  if  ACN, 1 3 -A Cl , 1 3 -ACN, 2 3 -AC  1 , 23 ; gto  34 

32:  if  ACN, 1 3-AC1 , 1 3>0;gto  44 

33:  sfg  5; gto  42 

34:  if  ACN, 23-ACt ,23>0;gto  44 

35:  sfg  5; gto  42 

36:  if  aax<  abs<  ACM, 13 -A Cl, 13 ),abs<  ACN,23-AC1,23>  >-abs<  ACN, 23 -A Cl, 23 >;  sfg  12 
37:  if  flg12jgto  39 
38:  gto  40 
39:  gsb  "rotl* 

40:  if  ACN, 1 3-AC1 , 1 3>0;gto  44 
41 :  sfg  5 

42:  for  I-N  to  1  by  -1 ; At  1 , 1 3 3BCN-I+1 , 13 ; AC  1 , 23 3BCN-I+ 1 , 23 ; next  I 

43:  sfg  4jgto  46 

44:  for  1-1  to  N 

45:  Atl,13>BCI,13jAtl,233BCI,23; next  I 
46:  if  f lg12 jgto  48 

47:  for  1-1  to  N;YCI3>ACI, 13;GEI33ACI,23; next  I;gto  49 
48:  for  1-1  to  N; Yt I3+r 123AC I , 1 3 ; CC I 3-r 1 1 3AC I , 23 ; next  I 
49:  if  NC43-1 j  0)NC4  3;gto  54 
50:  if  A-ljgto  53 

51 t  ent  "is  new  aet  aessage  available  ?",Q* 

52:  if  fl#-"*"jcfg  8jgto  "aet" 

53:  sfg  8 

54:  ina  M: 0 

*7407 


45 


55:  If  A=0;fxd  Ojdsp  "  READY  FOR  TARGET  DATA  ?";stp 
56:  if  A* 1 ;  f  xd  Ojdsp  “  READY  FOR  ADJUSTMENT  DATA  ?";stp 
57:  f xd  0 

58:  for  I=N  to  1  by  -Ijfxd  0 

59:  dsp  "is  brk  .  time  avai 1 ab 1 e ,a ik e", N- I + 1 ent  "".Q* 

60:  if  G#= ; gto  64 
6  f  :  if  QS*“+" ; gto  63 
62:  1 >MC I  3 ; va l < Q4 > >AC I , 3 3 ; gto  64 

63;  1)MCI3;dsp  "enter  break  t ime , m i k e M , N+ 1  - 1 ; ent  "“,ACI,33 
64:  if  Mm*0jprt  "  *";gto  66 

65:  f xd  3; prt  ACI,33 
66:  next  I;spc  2;  fxd  0 

67:  ent  “are  break  times  correct  ?",Q# 

68:  if  QS*"+" ; gto  77 

69:  prt  "BREAK  TIME  EDIT“;spc 

70:  ent  “which  mike  has  break  time  error?", r33 
71:  fxd  0;prt  “mike“,r33 

72:  dsp  "enter  correct  break  time, mike" ,r33;ent  , ACN-r33+1 , 33 
73:  fxd  3jprt  ACN-r33+ 1 , 33 ; spc 
74:  1 >MCN-r33+ 1 3 

75:  ent  “is  another  break  time  in  error  ?",Q$;if  &$-"  +  " j  gto  70 
76 :  spc 

77:  0>r3jfor  I-N  to  1  by  -1;if  M£I3*Q;gto  79 

78:  r5+1 3r5; AC  1 , 33  >BIN-r5+l , 33 

79:  next  I 

80:  if  r5>*3; gto  82 

81:  dsp  "ERROR-less  than  3  mikes  entered" ; wai t  SuOOjgto  51 
32:  if  r5*N j  gto  93 

83:  for  I»N-r5+1  to  N j BC I , 33 JBC I-N*r5 , 3 3 ; next  I 
84:  for  I«r5+1  to  N; 9999999 >BC 1 , 33  j  next  I 
35:  if  flg4;gto  87 
86:  gto  91 

87:  for  I»r5  to  1  by  - 1 ; BC I , 33 >YCr5-I+ 1 3 ; next  I 

38:  for  I-N  to  1  by  -1 > MC I  3 3GCN- 1  + 1 3 ; next  I 

39:  for  1-1  to  r5; YC 1 3  3BC 1 , 33  j  next  I 

90:  for  1-1  to  N; GCI3 3MCI3 j next  1 

91 :  r5)r26 

92:  gto  99 

93:  if  f lg4  s  gto  95 

94 :  gto  99 

95:  for  I*r5  to  1  by  - 1 ; BC I , 33 >YCr5-I+ 1 3 } next  I 

96:  for  I-N  to  1  by  -1 ;  tIC  1 3  3GCN-I  +  1  3  j  next  I 

97:  for  1-1  to  r5; YC I  3 >BC 1 , 33 j next  I 

98:  for  1-1  to  Nj Gt I  3 3MC I  3 ; next  I 

99:  r5-1 3CC 13 ; r5-23CC23 : CC 1 3CC2 3/23CC33 ; r53CC4 3 

100:  deg 

1 01 :  r53r26 

102:  0>r5>r6>r7 ; 337 . 53CC53 

103:  if  flglOjcfg  10;gto  108 

104:  for  I-t  to  N}r5+MCI3>r5 

105:  if  MCI3«0;gto  107 

106:  BC I , 1 3)BCr5, 13jBCI,23>BCr5,23 

107:  next  I 

108:  r26)r5 

109:  for  1-1  to  CC13 
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MO:  BC  I  +  t ,  1  3-BCI, 13>DCI,  1  3  ;  6£  I  ♦  1 , 2  3-BC  1 , 2  3  )DC  I  ,  2  3 
lit!  \<D£I.  1  3DCI,  13+DCI.23DCI.23  >)DCI  ,33;DCI,3  3/CC5J:>OC  1 ,4  3 
1  12i  <BCI+1 , 13+BCI,  l]V2)XI  1,13  ; < BC 1*1 , 23*BC I , 23  >/2>XCI  .23 
113s  DC  I , 13)SC13;DCI,23)SC23;gsb  "at*n2" 

114!  if  SC33  >270; SC 33-36  0>S  C  3 ] 

115:  SC33-903SC33 
116:  SC33>D£1,53; next  1 

117i  P37283, 163QC1 3 ; CC53CC5 3QC 1 33QC23;SQC 1 3-1 >QC3  3 
118:  deg 

119i  r1)SC13;r2>S£23;gsb  "atan2" 

120:  SC333B 

121:  S<r1r1+r2r2)>U 

1 22 :  for  1-1  to  CC 1 3 ; BC 1 , 33-BC 1  + 1 , 33 >D£ 1 , 63 ; DC  I . 5 3-6  +  90 >G C I  3 ; next  I 

123i  for  1-1  to  CC1 3;DCI,63QC33)ECI,  1  3 

124 :  DC  1 , 33cos<  G£ !1 X -U VQC23  >E£I , 2  3 

125:  DCI,63+ECI, 1 3 +E Cl, 23  3D £1,63 

126:  next  I 

127:  rad 

128i  for  1-1  to  CC  I  3  ;  i  f  abs< DC  1 , 63/DC  1 , 4 3  ) > 1 ; gto  130 
129:  asn<DCI,63/DCI,43 )>HCI 3 ; gto  131 

130:  DCI,63/DCI , 4  3/abs<  D[I,63/DCI,43)3CC63;  asn<  C  [  6  3  >>H[I3 

131 i  if  f lg4;gto  133 

132:  H£I3+<D£I,53/180>PCI3;gto  134 

133:  C-HCI3+CDCI, 53/180 3PCI3 

1 34 i  n«xt  I 

135:  gto  153 

136:  "eet" : deg ; if  flg8;cfg  8;gto  99 

137:  ent  "enter  effective  temp . < C . >" , r3 

138:  r3+273. 16>r3;20. 06Sr3>r4 

139:  ent  "enter  eff.  wind  specd( knot*  )" , r8 

140:  ent  "enter  eff.  wind  direction< ni Is  )" , r9 

141  :  r8*. 5 1 46789 >r8 ; r9/ 17. 7777778 3r 9; -r8sin(r9>)r1 ; -r3cos<  r9)>r2 
142:  if  flg12;gto  144 

143:  ref  4,r1,r4jrcf  10,r1,r4;fdf  11;gto  53 

144:  ~r2>F ; r 1 >r2; F>r 1 ; ref  4,r1,r4;rcf  10,r1,r4;fdf  11:gto  53 

145:  ■atan2" : if  SC23-0;gto  150 

(46:  atn<  SC  1  3/SC 2 3  )>SC33 

147:  if  SC23<0;SC33+180>SC33;ret 

148:  if  SC33 >0; ret 

149:  SC33+3603SC33 }  ret 

150:  if  SC13-OjO>S£33;ret 

151:  if  SC13>0;90>SC33jret 

152:  270>SC33;ret 

153:  deg 

154:  0>H; rde  SC23 
155 :  for  1-1  to  CC23; 1+1 )K 
156:  for  J-K  to  CC13 
157:  H+ 1 >M 

158:  13ZC1 , 13 ; -tan< -1 80+PC I  3* 1 8 0/< >>ZC1 ,23;  1 >ZC2, U 

159:  -tan< -180+PC  J3*180/<  >>ZC2,23 

160:  XCI,  1 3-tan< -1 80+PC 1 3*1 80/< >XCI,23JSC 1 3 

161 :  XC  J, 1 3-tan< -180+PC  J3*1 80/<  >XC  J, 2  3 >S£23 

162:  inv  Z>Z; mat  ZS>R; RC 1 3 >OCW, 1 3 >0CM, 33 ; RC23 30CM, 23 JOCM , 43 

163:  next  J 

164:  next  I 
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163:  rde  S C 3 ] 

166:  rad 

167:  rda  TCI03;ina  T i -9999999 

168:  rda  PC  1 03  j in*  P: -9999999 

169:  <rS-1 X r5-2 >/2>CC 1 03 j CC 1 03- 1 >r 1 3 

170:  for  J*1  to  r13 

171:  for  K»J  to  CC 1 03 : OCK, 1 3 3TCK3 

172:  OCK,23)PCK3 

173:  next  K 

174:  aax<  TC*3  >>r8; aax( PC*3  >3r9 

175:  if  OC J, 1 3«r8;-999999>TC J3;gto  181 

176:  for  Z=J  to  CCI03;if  rB*0CZ,1 3jgto  178 

177:  Z3L 

178:  next  Z 

179:  OC J, 1 3)r14jr8>OC J, 1 3;r1430CL, 1 3 
180:  if  OC  J, 23=r9; -99999993PC  J3 ; gto  183 
181:  for  Z-J  to  CC103<if  r9#0C2 , 23 i gto  183 
182:  Z3L 
183:  next  Z 

184:  0CJ,23)r14;r9>0[J,23;r14)0CLJ23 
185  :  -9999999  >T C  J 3 ; -9999999  >P  C  J  3 
186:  next  J 

187:  if  CC 1 03aod2*0 ; gto  189 

188:  int< CC 1 03/2 )+ 1 >r8 ; 0Cr8 , 1 3 )r 1 3 J  0Cr8, 2 3  3r 1 4 ; gto  191 

189:  CC103/'23r8;r8+»>CC83;r8)CC93j<OCCC83, 13+OCCC93, 13>/2)r13 

190:  <OCCC83,23+OCCC93,23  )/2)r  1 4 

191 t  if  f lg2;gto  201 

192:  for  1=1  to  CC13 

193:  r 1 3-BC I,13>YC13jrl4-BCI,23>YC23; 1  + 1  >S 
194:  r 1 3-BCS , 1 3  3YC33  j  r 1 4-BCS, 23  3YC43 

195:  DCI,33DCI,333YC53jYC33YC33+YC43YC43>YC63jYC1 3YC1 3+YC23YC23 >CC 1 3 
196:  SGC13>GC23jNYC63)GC33;<GC1 3+YC6  3-YC5  3  V2GC2  3GC33  3GC4  3 
19 7:  acs<GC43)>GC53;sin<GC53/23>GC63;S< 1+GC63GC63 >>R 
198:  DCI,63<R-1 33DC 1 , 73 ; DC  1 , 63+DC 1 , 73 >DC 1 , 63 ; next  I 
199:  sfg  2;gto  127 

200:  0)r5;for  1  =  1  to  Nj r5+MC I  3 3r5; next  I 
201:  if  r5=3; gto  202 
202:  if  f Igl 2;gsb  "rot2" 

203 :  if  8=1 j gto  214 

204:  fxd  Ojprt  *  SOUND  RANGING  TARGET" ;  spc 

205:  fxd  Ijprt  “easting" , r 1 3+r 1 1 j spc 
206:  prt  "northing* , r 1 4+rl 2 ; spc 
207:  gsb  "spread" 

208:  prt  "spread" , »ax< TC*3  >; spc  3 

209:  if  A*1 ; gto  211 

210:  r 1 1 *r 133r30jr12+r14)r31 ; 1 >A 

211:  for  I«1  to  N; AC  1 , 1 3 3YC I  3 ; AC  1 , 2 3 3GC I  3 j next  I 

212:  ldf  1 1 ,AC*3 jcfg  12 

213:  sfg  tjcfg  2;cfg  3;gto  29 

214:  fxd  0; prt  "AD JUSTMENT" , G+1 ; spc 

215:  if  r 1 3+rl 1 -r30<  0; gto  217 

216:  fxd  Oiprt  "LEFT" , rl 3+r 1 1 -r30j spc  ;gto  218 

217:  fxd  0;prt  "RIGHT" , abs<  r 1 3+r 1 1 -r30 3; spc 

218:  if  r14*r12-r31<0)gto  220 

219:  prt  "DROP" , r 1 4+r 1 2-r31 j spc  jgto  221 
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220 i  prt  "ADO* , abs< r 1 4+rl 2-r31 >; spc 
221 >  fxd  1 ; gsb  “spread" 

222:  prt  “SPREAD* , aax<  TC* J  > j spc  2;fxd  0 

223:  if  S<  <  r  13+r 1 1 -r30  >  A2*<  r 1 4+r 12-r31 >'2>>IOO;gto  22? 

224:  for  1-1  to  N; AC  1 , 13 3YII3 ; At  1 , 23 3CCI3 ; next  I 
225:  ldf  1 1 , AI*3;cfg  12j*fg  1;cfg  2;cfg  3;0>A 
226:  prt  "FIRE  FOR  EFFECT";spc  2;gto  29 

227:  for  1-1  to  Nj AC  I , U 3YCI3 ; AC  1 , 21 3GCI3 j next  I 
228:  ldf  1 1 ,  AC*3 } cfg  12 
229:  cfg  2; cfg  3 

230:  «nt  “another  adjusting  round  ?“,Q0 
231:  if  QO-"  +  " ; 1 >A; G+1 >G; gto  29 
232:  0>A>G; gto  29 

233:  “rot  1 “ : ina  Y:0;ina  G:0jd*g,for  1-1  to  N; -AC  1 , 21 >Y£ 13 ; AC  1 , 1 33GC I  3 ; next  I 
234:  for  1-1  to  N; YCI3 3AC I , 13 ; GCI3 3AC I , 23 j next  I (ret 
235:  “rot 2“ :deg; r 143YC 13;-r133YC23;YC133r13;YC23>r14;ret 
236:  "tiaing": 

237:  dsp  “  BREAK  TIME  READING  ASSISTANCE" ; wait  2000 
238:  ent  “us*  coordinates  of  last  target  ?",Q* 

239:  if  gto  242 

240:  ent  "enter  easting, estiaated  targ*t",r13;r13-r1 1 )r 13 
241:  ent  "enter  northing, estimated  target", r14;r14-r12>r14 
242:  if  flg12;gto  244 
243:  gto  245 

244:  -r14>YC13;r13>GC13;YC133r13jGC13>r14 

245:  ent  “which  aike  has  sharpest  break  ?",NC13 

246:  fxd  0;dsp  "enter  break  tiae, aike" , NCI  3 ; ent  "“,NC23 

247:  ldf  1 1 , AC-3 

248:  for  1-1  to  N; AC  1 , 1 3-r 1 1 3BC 1 , 1 3 ; AC  1 , 23-rl 2>BC 1 , 23 ; next  I 
249:  if  f lg12( gto  251 
250:  gto  252 

251:  for  1-1  to  N j -BC 1 , 23 >YC 1 3 ;BC I, 1 3 JGC I  3; YC 13 3BC 1 , 1 3 1 GC 13 3BC 1 , 23 ; next  I 
252:  N<r1r1+r2r2)>W 

253:  for  1-1  to  N>< r13-BC 1 , 1 3 X r 1 3-BC 1 , 13 >+< rl 4-BCI , 23 >< r 1 4-BC 1 , 23  )>GC I  3 
254:  r1<BCI,13-r13 )+r2<BC 1 ,23-r 1 4  ))YC 1 3 

255:  < -YC I3*\<  YCI3YCI3+< r4r4-WW >GC I  3  > V<r4r4-WW )3TC 1 3 ; next  I 

256:  TCN-NC 13+13 -NC233NC33 

257:  for  1-1  to  N; TC I3-NC33 >TC 1 1 j next  I 

258:  fxd  0; prt  "BREAK  TIMES  NORMALIZED  TO  MIKE" , NCI  3 ; spc  2 
259:  for  I-N  to  1  by  -lifxd  Ojprt  "aik*",N-I+1 
260:  fxd  3(prt  "brk .  tiae" , TC 1 3 j spc  ;ncxt  I 
261 :  spc  2 

262:  cfg  12; 1 3NC43;gto  26 
263:  "aike": ldf  11, AC-3 
264:  prt  "MIKE  COORDINATES" ; spc 
265:  for  I-N  to  1  by  -1 

266:  fxd  0;prt  "aike" , N-I  +  1 ; fxd  1;prt  “easting", ACI, 1 3;prt  "northing" , AC  1 , 23 

26 7 i  spc  ;next  I 

268 :  spc  2 

269 :  gto  1 8 

270:  "aet1":deg 

271:  prt  "MET.  VALUES-jspc 

272:  fxd  1 ;prt  "teap. ",r 3-273. 16; spc  1 

273:  prt  "wind  spd. ",\<r1 *2*r2*2 V . 5146789; spc 

274:  if  f lg12^-r2)8C1 3>r1 >SC23;g*b  “atan2" 
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275:  if  f lgl 2; gto  27? 

276:  -rl JSC  1 3 ; -r2>SC23 ; gsb  "atan2“ 

2  77 :  S C33* 1 7  . 777?7778eod64  Q0  3S 1 3 3 

276:  fxd  0;prt  "wind  dir  .  “  SC33  ;  spc  2 

279:  gto  51 

260:  “spread" i ina  T : 0 

281 :  if  f lg12jgto  283 

282:  for  1*1  to  C C 1 03 ; S< < 0 £  1 , 3 3 -r 1 3 > ‘ 2-K  0 C I , 4 3 -r 1 4  )  2  )  >T C I ] ; next  IjOJAjret 

283:  for  1*1  to  C t 1 0 3 ; S< < OC 1 , 3 3 +  r 1 4  )  2  +  < OC 1 , 4 3 -r 1 3 > A2  )  >TC I  3 ; next  I;0>A;ret 

284:  "INDEX": 

285:  prt  “TO  CALL  DESIRED  PROGRAM" j spc 
286:  prt  “ENTER  PROGRAM  NUMBER" } spc 

207:  prt  “PRESS  CONTINUE" ; spc 

288:  prt  “1  SOUND  RANGING" 

289:  prt  "2  SOUND  ON  SOUND'1 

290:  prt  "3  VISUAL  MET." 

291 :  prt  “4  FLASH  RANGING" 

292:  prt  “5  FLASH  ADJT." 

293:  prt  "6  LASER  RFDR . “ 

294:  prt  “7  LASER  RFDR.  ADJT." 

295:  prt  “8  LASER  RFDR.  TRILATERATION" ; spc  2 

296:  ant  "enter  program  nunber“,N 

297:  if  N*t ; ldp  2 

298:  if  N=2; ldp  8 

299:  if  N-3; ldp  12 

300:  if  N*4 ; ldp  14 

301 :  if  N=5; ldp  19 

302:  if  N*6; ldp  22 

303:  if  N*7j ldp  2? 

304:  if  N*8; ldp  30 
*4365 
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LISTING 


VISUAL  MET 
PROGRAM 
FILE  11 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  VISUAL  MET  PROGRAM 

FILE  12 

*beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  qto  5 
beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  gto  5 
beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  gto  5 
beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  gto  5 
beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  gto  5 
beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  gto  5 
*cont  "ORIENT" 

*dsp  "SOUND  RANGING  PROGRAM  INITIATED";  ldp2 
*dsp  "SOUND  ON  SOUND  PROGRAM  INITIATED";  ldp8 
beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  qto  5 
beep;  dsp  "WRONG  KEY!***PRESS  (continue)";  gto  5 
*cont  "INDEX" 
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0:  dim  KC5,43,LC2,53,UC2,53, Jt 5 3 , I [ 53 , VC8 ] , SE33 , FC53 , OS C 1 3 , Tt2 3 , HE 2 3 , U£ 21 
1 :  dim  EC33, AC6, 33 
2 :  ldk  13 

3:  dsp  *  VISUAL  MET.  CALCULATION" j  wait  3000 
4:  1)2 
5:  sf g  1 

6:  fxd  0; prt  "DATA  SET", Zj spc  2 

7 :  fxd  1;ent  "enter  dry  bulb  temp.  <C.>",r10;if  flgljprt  rlO 
8:  ent  "enter  wet  bulb  temp.  <C.)“,r11jif  flgljprt  rll 
9 :  . 621 5)E ; 1  . 98624 )R j  597 . 3>L ; 1 8 . 0 1 6 )M j . 24)C j . 44 t )W j 980 >P 

10:  rl 0+273. 16)r1 Ojrl 1+273. 16 )r1 1 jrl O-rl 1 >D 
1 1 :  <  ML/R )<  1/273. 16-1 /rl 1 )>Et13j6.1 lexptEtl 3  >>EC23 

12:  <  1-. 0005EC23  >EC2J )EC3  3 j E*E£3  3/< P-EC3  3 >)HC1 3;<LHC 1 3-CD  >/< UD+L  > 3HC2 1 
13:  < 1 +HC2  3/E  )r 1 0/< 1 +Ht 23  >-273 . 1 6>TC 1 3 
14:  <  3TC 1 3+<  r 1 0-273 .16) 3/43TI23 

15:  «nt  “enter  tin*  of  day  correction" , rl 3 ; if  flgljprt  rl3j*pc  2 
16:  if  flgljent  "is  temperature  data  correct  ?",QOjif  0#*"-"jgto  7 
17:  TC23+r13)r14 

18:  fxd  1 ; prt  "eff.  temp . " , r 1 4 j *pc  2 

18:  ent  "compute  effective  wind  ?",Q*jif  Q$*“-" jgto  83 
20:  fxd  Ijent  "enter  offset  azimuth<deg . >" , JC 1 3 j if  flgljprt  Jt13 
21:  ent  "enter  offset  distancc< meters >" , VC43 j if  flgljprt  VC43jspc  2 
22:  if  flgljent  "is  offset  data  correct  ?",Q*jif  jgto  20 

23:  fxd  Ojdeg 


24: 

25: 

26: 

27: 

28: 

29 

30 

31 

32 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41  : 
42: 
43: 
44: 
45: 
46: 
47: 
48: 
49: 
50: 
51  : 
52: 
53: 
54: 


0)FC  1 3  j  . 9>FC2 3  j 1 . 93FC33 j 2 . 9)FC43 j 3 . 93FC53 
fxd  Ojent  "enter  sur .  elevation  angleCdeg . >" , A j 
fxd  1;ent  "enter  sur.  azimuth  angle< deg Bj if 
if  flgljent  "is  data  entry  correct  ?",Q*jif  Q* 


elevation  anglc< deg . >" , I [23 j if 
azimuth  angletdcg . )" , JC23 j if  fl 
data  entry  correct  ?",Q$jif 
elevation  angle< deg I [33 j if 
azimuth  angie<deg . )" ,  JC33 j  if  fl 
data  entry  correct  ?"  ,Q*jif 
elevation  anglet deg . >" ,  I C43 j  if 
azimuth  angle<deg . )", JC43 ; if  fl 
data  entry  correct  ?",Q*jif  Q*» 
elevation  anglc<deg .  )", IC53 j if 
azimuth  angle(deg .  )" , JI53 ; if  fl 
data  entry  correct  ?",QSjif  Q*» 


ent  "enter  200M 
ent  “enter  200M 
if  f lgl ;ent  " is 
ent  "enter  400M 
ent  "enter  400M 
if  f lgl jent  "is 
ent  "enter  600M 
ent  "enter  600M 
if  f lgl ; ent  "is 
ent  "enter  800M 
ent  "enter  800M 
if  flgljent  "is 
for  1*1  to  5 
VI43sin< Jt I  3  >)KC I 
if  0a6;gto  44 
1 00 J/tan( I [03 >>Vt43 
next  I 

55/tan<A>)DjDsin<B>)UC1 3 j Dcos< B >)Ut 23 
<UC1 3-KC 1 , 13  )/15)UE1 3 ;<Ut23-KC1 ,23  >/!5>UE23 
S<UmUm+Ut23UI23>/.5146789>Vt6  3jUC1  3)SE1  3  jUC 
SC33)VC53j<  VC53  +  180  >mod360)V[53 
if  VC53  >90 j  gto  51 

-sin<  VC53 >VC6J)LC2, 1 3 j -VC6 Jcos< Vr53  »UC2,  »3;gto 
if  VC53>180jgto  53 

-cos<  VC53-90  >Vt63 )LC2/ 1 3 j sin< VC53-9  0 )VC63 )WC2, 1 
if  VC53  >270 j  gto  55 

sin<VC53-180)VC63)LC2, 13 j cos< VI53-1 80 >Vt63)Ut2, 


if  flgljfxd  Ijprt  “sur 
f lgl j  prt  Bjspc 
"-"  j gto  25 

f lgl j  prt  "200M" , IC23 
gljprt  JC23  j  spc 
; gto  28 

flgljprt  "400M" , I£33 
gl j  prt  JC33  j  spc 
;gto  31 

flgljprt  “600M" , I C43 
gl j  prt  Jt43  j  spc 
"-"jgto  34 

flgljprt  "800M" ,  I  C53 
gljprt  JC53jspc  2 
"-"jgto  37 


1  3  j  VC43cos< JC 1 3 >>KC 1,23 j 21) J: 1  +  1)0 


♦22094 


23 3SC23 j gsb  "atan2* 
56 

3  j  gto  56 
1 3  j  gto  56 


A 
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55 i  cos<  VC53-270  3VI633LC2, 13 ; -sin< VC5 3-27  0  >VC 6 3 3WC2 , 1 3 
56 :  S<  LC2, 1 3LC2. 1 3+WC2. 1 3VC2, 1 3  ))KC1 , 4  3 

57:  for  1-1  to  4; 1*1 > J; < KC J, 1 3-KC 1 , 1 3 )/60< FC J3-FC I  3 >>LC 1 , J 3 
58:  (  KC  J, 23-KC 1/21 >/6  0< FCJ3-FCI1 ))V(  1 , J3 ) LC 1 , J ]/ . 5 1 467893L 1 2 , J3 
59:  UC1  ,  J3/'.5146789>«C2,  J3;S<LC2,  J3'2+WC2,  J3‘2>>Kt  J,43;n«xt  I 
60:  if  KC3/ 43 >-KC2/ 4  3 ; gto  68 

61:  abs<KC3,43-KC1 ,43 >>VC73 j if  VC73<-2;gto  65 
62:  KC3,43)S;LC2,33)SC13;UC2,31)SC23 
63:  gsb  "atan2" 

64:  gto  76 

65:  KC2,43>S;L£2<23)SC13;UC2,23)SC21 

66:  gsb  "atan2" 

67:  gto  78 

68:  KC3, 43-2KC2*  43  JVC  73 ; if  VC73>0;gto  74 

69:  . 2LC2,13+.3LI2,23*. 1 5L [2, 3  3  +  , 075L  C2 , 4  3*. 075LC2 , 53  >S [ 1 3 
70:  .2WC2, 1 3+ . 58 C2, 23+ . 1 5WC2 , 3 3* . 075U C2 , 4 3* . 075WC 2, 53 3SC2 3 
71:  \<SC1 3SC 1 3+8C23SC23  )>VC83)S 
72:  gsb  "atan2" 

73:  gto  78 

74:  .4LC2, 13+.3LC2,334. 15LC2,4  3*. 15LC2,53>SC1  3 
75:  .48C2, 1 3+ . 38C2, 33+ . 15MC2,43+. 1 58C2, 53 3SC23 
76:  N<  3C 1 3SC13+SC23SC23 >>VC  83  >S 
77:  gsb  "atan2" 

78:  SC33*1 7 . 777778+3200)r9; if  r9<6400;gto  80 
79:  r9-6400>r9 
60:  gto  81 

81:  fxd  fiprt  "eff.  wind  spd.a,S)spc 
82:  fxd  1 ; prt  "«ff.  wind  dir.",r9;spc  2 

83:  «nt  “another  calculation  ?*,QI;if  Q*-"+";cfg  1;Z+1)Z;gto  5 
84:  ant  "is  aat.  data  to  ba  used  now  ?",Q*;if  Q*»"4" ; gto  “ORIENT" 

85:  dsp  a  PROGRAM  COMPLETED !!!"; wait  3000;gto  “INDEX" 

86:  aatan2" : if  SC23-0;gto  91 

87:  atn< SC  1  3/8(23  »S (33 

88:  if  8C23<0;8C33+180)SC33;ret 

89:  if  8C33  >0; ret 

90:  SC 334360381 33 ; rat 

91 :  if  8C1 3-0) 0)8(33 ) rat 

92:  if  8C1 3>0;90)SC33;rct 

93:  2703SC33 ;rat 

94:  "ORIENT" :dsp  "  MET.  ORIENTATION  INITIATED" ;  wait  2000; ldf  11,AC*3 

95:  ant  "how  Many  Mikes  in  sound  base  ?“,N 

96:  if  abs< AtN,23-AC 1,23  )>abs(ACN, 1 3-AC1 , 1 3 );sfg  12 

97:  r14+273. 16)r3;20, 06Sr3)r4 

98:  8*.5146?89>S;r9717.777??778)r9;-Ssin<r9  >>r1 ; -Scos< r9 >>r2 

99:  if  flg12;-r2)F;r1)r2;F)rt 

100:  ref  4,r1,r4;rcf  10,r1,r4 

101:  dsp  "  INITIATE  DESIRED  PROGRAM" ; stp 

102:  "INDEX": 

103:  prt  "TO  CALL  DESIRED  PROGRAM"; spc 
104:  prt  "ENTER  PROGRAM  NUMBER"; spc 
105:  prt  "PRESS  CONTINUE" ; spc 
106:  prt  "1  SOUND  RANGING" 

107:  prt  "2  SOUND  ON  SOUND" 

108:  prt  "3  VISUAL  MET." 

109:  prt  "4  FLASH  RANGING" 

*2879 


1  1  0 

prt 

"5  FLASH  ADJT. 

H 

1 1 1 

prt 

“6  LASER  RFDR . 

H 

1  12 

pr  t 

■7  LASER  RFDR  . 

ADJUSTMENT" 

1  13 

prt 

“6  LASER  RFDR. 

TRILATERATION" ; spc 

)  14 

«nt 

"«nter 

program 

nuaber “ ,  N 

1  15 

if 

N* 1 ; 1  dp 

2 

l  16 

if 

N*2 ; ldp 

8 

i  17 

if 

N<*3 ;  1  dp 

12 

1  18 

if 

N=*4 i  ldp 

14 

)  1  9 

if 

N*S ; ldp 

19 

120 

if 

N<*6 ;  ldp 

22 

121 

if 

N=»7 ;  ldp 

27 

122 

if 

N=*8;  ldp 

30 

123 

«nd 

*190 
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LISTING 


FLASH  RANGING 
PROGRAM 
FILE  13 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  FLASH  RANGING  PROGRAM 

FILE  14 


fO: 

*beep;  dsp 

"WRONG 

KEY**PRESS 

(continue)" ; 

gto 

18 

V- 

*beep;  dsp 

"WRONG 

K£Y**PRESS 

(continue)"; 

gto 

18 

f2: 

*beep;  dsp 

"WRONG 

KEY**PRESS 

(continue)" ; 

gto 

18 

f3: 

*beep;  dsp 

“WRONG 

KEY**PRESS 

(continue)”; 

gto 

18 

f4; 

*beep;  dsp 

"WRONG 

KEY**PRESS 

(continue)"; 

gto 

18 

V 

*beep;  dsp 

"WRONG 

KEY**PRESS 

(continue)"; 

gto 

18 

^6: 

*cont  "OP" 

f7: 

*beep;  dsp 

"WRONG 

KEY**PRESS 

(continue)"; 

gto 

18 

f8: 

*cont  "TARGET" 

f9: 

*beep;  dsp 

"WRONG 

KEY**PRESS 

(continue)"; 

qto 

18 

f10: 

*dsp  "ADJUSTMENT  MODE  INITIATED";  ref  17, 
ref  18,  Z[*];  ldpl9 

G; 

fu:  *cont  "INDEX” 


t 
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0:  dia  PC6,33,At6,23,Q*C73,H£63,YC63,GC63,8C63,CC10),EC2,23,0C23,F[23 
1:  dia  xnO,53,Tr63.DC63..Ut103.Vn03,Zt100,43,SC33,Q[33,RC103 
2:  dia  NI63, 1C303, JC6,23 


3 (  ldk  IS 

4:  dsp  •  FLASH  RANGING" ; wait  3000 

5 :  deg 

6!  .  1  >It  13;  2)1 [23;  .6)1 £33;  t  >1143;  1  .  5)1 C53 ; 2 . 2) I £63 ; 3)1 [73 ; 3 . 9)1 [83 
7:  5)I193;6.2>XM03;7.4)I[1 13;8.9)I£123; 1  0 . 4  >  1 1 1  3  3  ; 12. 1 3 1 C 1 4  3 ; 1  3 . 9  )  I  £  1  5  3 
8!  15.8)IC163j17.8>ICt73j19.9>IE183;22.2>I£l93j24.6>l[203}27.1>IC2l3 
9 i  29.8>I£223;32.6>IC233;35.3)I£243;38.5)l[253;41.6>I£261;44.9>I£273 
10:  48. 3) 1 1283 j 51  .8)11293 ; 35. 431 C303 

11:  ant  "are  earlier  targets  stored  ?",Q*;if  Q$=“-"jgto  13 
12;  ldf  1 7, G; ldf  18,ZC*3;gto  14 
13:  ina  Z : 0 

14:  ent  "enter  nuaber  of  flash  0Ps",N;rda  MCN3 


15: 
16: 
17: 
18: 
19: 
20: 
21  : 
22: 
23: 
24: 
25; 
26: 
27: 
28: 
29: 
30: 
31  : 
32: 
33: 
34: 
35: 
36: 


rda  NCN3 

ent  “are  OP  coordinates  stored  ?",Q* 
if  Q*="-"jgto  20 
ldf  1 6, PC*3 
gto  31 

fxd  0; for  1*1  to  N;dsp  “enter  easting, OP" , I ;ent  "",PCI,13 
dsp  "enter  northing, OP" , I ; ent  "",PEI,23 
dsp  "enter  height, OP" , I ; ent  "",PCI,33 
next  I; gto  30 

ent  "are  O.P.  coordinates  correct  ?“,Q*;if  Q**"*" ; gto  31 
ent  "which  O.P.  is  in  error  ?",0 

fxd  0;dsp  "enter  correct  east ing, 0 . P 0; ent  "",P£0, 13 

dsp  "enter  correct  northing, 0 . P 0; ent  "",P£0,23 

dsp  “enter  correct  height ,  0  .  P  . ,  Ojent  "",PC0,33 

ent  "are  other  coordinates  in  error  ?",G*;if  Q**"+“;gto  25 

ref  1 6, P£*3 ; ref  21,PC*3jfdf  16 

for  1*1  to  N;PtI,  13)YCI3,'PCI,23)GCI3;  next  I 

0)r 1 ; 0)r2; for  1*1  to  N ; r 1 +YC I 3)r1 ;r2+Gt I  3 )r2; next  I ; r 1 /N)r 1 ; r2/N)r2 

for  1*1  to  NjPCI, 13-r1)GtI3;P[I,23-r2)Y[I3;next  I 

ina  h : 0 

ina  N : 0 

fxd  0 


37:  0)r3;  0)r4  s  f  or  1*1  to  N;dsp  "is  data  ava  i  1  able,  OP  M  ,  I ,  " ;  ent  ““,0* 
38:  if  Q$*"-";gto  52 
39:  if  Q*-"*";gto  41 

40:  1  >MCI);r3+M£Il>r3;val<Q*V17.77777778>A£r3,  1  3;prt  val<Q*);gto  43 

41:  1)MCI3;r3+MCI3>r3;dsp  "enter  aziauth< mi  1 s >, OP" , I 

42:  ent  " " , A£r3, 1 3 ; prt  ACr3, 1 3 ; ACr3, 1 3/1 7 . 7777778 )ACr3, 1 3 

43:  dsp  "is  vert,  angle  avai lable, OP" , I , ;ent  "",Q* 

44:  if  G$*"-",-gto  51 
45:  if  Q**"+" jgto  47 

46:  1 )NC I  3 ; r4+ 1 >r4 ; val<  Q<  >/1 7 . 777777783AC r4, 23 ; prt  val(Q»);spc  ;gto  50 
47:  1 >NC I  3 ;r4*l )r4 

48:  dsp  "enter  vertical  angle< mi  Is >, OP" , I ;ent  "“,ACr4,23 
49:  prt  ACr4,23;spc  j ACr4 , 23/1 7 . 77777778>ACr4, 23 
50:  GCI3)Gtr33;YtI3>YCr33;gto  54 
51;  G£I3>G£r33;Y[I3>YCr33;gto  53 
52:  prt  "  *" 

53:  prt'  "  *";spc 

54:  next  I ; spe 

*9705 
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53i  if  flgt)cfg  Ijgto  37 
36:  gsb  “EDIT" 

37:  if  r4-0)dsp  "ERROR ! -NO  HEIGHT  DATA")wait  5000;gto  37 
38:  if  r382)gto  60 

59:  dsp  “WARNING-ONLY  TWO  OPs  REPORT I HG  ! " ) wait  3000;gto  61 
60:  if  r3-1>gto  "on*  OP" 

61:  for  1-1  to  r3) tan< AC  I , t 3 >>DC I  3 ) CC 1 3-DC I 3YC 13 >BC I  3 
62:  next  I 

63:  r3 JCC 1 3 ) r3-1 3CC23 ) 0>M 
64:  for  1-1  to  CC23)I+1>K 
65:  for  J-K  to  CC13 
66:  M+t  >H 

67:  13EC1 , 13)-DCI3>E£1 ,23; 1 3EC2, 1  3  ) -D C J3 3EC2, 23 ) BCI3 >FC 1 3jBC J33FC23 
68:  inv  EJEjaat  EF30 ) OC 1 3+r 1 3XCH, 1 3 3X CH, 43 ; OC 23+r2>X t M , 23 3X CM, 53 
69:  next  J 
70:  next  I 

71:  r3<r3-1 V23CC33 ;  CC33-1 3CC43 

72:  in*  V : -9999999; for  1-1  to  CC33 ) XC 1 , 1 3 >V£ I  3 ; next  I  :gsb  "median" 
73:  CC103)r10 

74:  in*  V t -9999999) for  1-1  to  CC33 ; XC 1 , 23 )VI I  3 ) next  I j gsb  "median" 
75:  CC  1 03 )r 1 1 
76:  gsb  "height" 

77:  in*  V : -9999999) for  1-1  to  C£33 ) XC 1 , 33 >VC I  3 ; next  I;gsb  "median" 

78:  CC 1 033r 14) gto  94 

79:  "median" i in*  U: -999999 

80:  for  J-1  to  CC43 

81:  for  K-J  to  CC33;VCK3>UCK3)next  K 

82:  max< UC*3 3>r6 

83:  if  VC J3-r6) gto  88 

84:  for  Z-J  to  CC33)if  r68VCZ3)gto  86 

85:  Z3L 

86:  next  Z 

87:  VC J3>r8;r6)VC J3)r8>VCL3 

88:  -99999993UC  J3  -» 

89 :  next  J 

90:  if  CC33aod2-0;gto  92 

91 :  int<  CC33/2  >+1 >r6)VCr6  3>CC 1 03) ret 

92:  CC33/2)r6; r6+1 >CC53 ) r6>CC63 

93:  (VCCC633+VCCC533 V23CC 1 03 ) ret 

94:  prt  "FLASH  RANGING  TARGET  ",G+1;spc 

95:  fxd  1 ) prt  "easting” , rl 0) spe 

96:  prt  "northing" , rl 1 )*pc 

97:  prt  "height", r14;spc 

98:  for  1-1  to  H) \< < XC 1 , 43-r 1 0 >*2+< XC 1 , 53-r 1 1 >*2 >)RC I  3 ; next  I 
99:  prt  "spread" , **x<R£*3 >j spe 
100:  in*  B:0)in*  R:0 
101:  G+1 >G 

102:  ent  "enter  day, time  ex.122130",H 
103:  fxd  Ojprt  "tlme",H)spc  2 

104:  if  Gaodl 00-0 )dsp  ”100  TARGETS  RECORDED  1 M ") wait  4000 
105:  Gaodl 03r24) if  r24aod1 0-0 jgto  109 
106:  1 1 -r24>r24 

107:  rl 0>ZCr24, 1 3 )r 1 1 3ZCr24, 23 ) r 14>ZCr24, 33 ) H)ZCr24, 43 ; ldf  16,PC*3 
108:  cfg  1)in*  H:0;gto  31 

109:  rl 0)2(1, 1 3 )r1 1 >Zt 1 , 23)r 14 JZt 1 , 33 )H)ZC 1,43 
*16606 
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110:  for  1-90  to  1  by  - 1 j Z£ I . 1 3 >ZC I* 1 0 , 1 3 ; ZC I , 2 3 >ZE I ♦ 1 0 , 23 j ZE I , 33 >ZC I* 1 0 , 33 
til:  ZII,43>2CI-*1  0,43 
t 1 2 :  next  I 

M3:  ref  17,G;rcf  18,Z£*3 

M  4 :  for  1-1  to  1  0 j 0 )Z C  I  ,  1  3 >Z £  1 , 2 3 >ZC 1 , 3 3 >Z £  1 , 4 3 : next  I 
115:  cfg  1  ;  ldf  16,PC*3;ma  M:0;gto  31 
116:  "height" : f or  1-1  to  N 

117:  PE  1,1 33XEI, 1 3  ;  P  £  1 , 2 3  )X£  1 , 2  3 ;  P £  1 , 3  3  >X 1 1 , 3 3 
118:  next  I 

119:  0 )r4 ; f or  1-1  to  N;if  N£I3-0;gto  121 

120:  r4+ 1 3r4jXCI, 1 3 3XEr4 , 1 3 ; X£ I , 2 3 >XE r4 , 2 3 ; XE I , 3 3 >XEr4 , 3 3 

121:  next  I 

122:  for  1*1  to  r4 

123:  \< Crl 0-XEI , 1 3 >‘2+<r1 1-XCI ,23 >*2>>XEI ,23; if  P£I,23>0;gto  125 
124:  X£I,33-XCI, 23tan< -At  I , 23  )3XC 1 , 33  :  gto  126 
125:  XCI,33+XEI,23tan<A£I,23  >>XEI,33 
126:  next  I 

127:  for  1-1  to  r4,>  int<  XC  1 , 2371  000  >>r 28 ;  X 1 1 , 2 3/ 1  000-r28 >r29 

128:  if  r28* 0 ; gto  132 

129:  if  r28>0;gto  131 

130:  XCI,33+I£303)X£I,33;gto  133 

131:  < IEr28-H  3-IEr283  >r29+ I Er28 3+XC I , 31 3XC I , 3 3 ; gto  133 
132:  I£1 3r29+XEI,333XEI,33 
133:  next  1 
134:  ret 

135:  "atan2":if  S£23-0;gto  140 
136:  atn<  S£ 1 37SE23  )>S£33 
137:  if  SE23<0;SE33*180>SC33;ret 
138:  if  SE33  >0; ret 
139:  SE33*3603SC33;ret 
140:  if  S£1 3  —  0 j 0>S£33;ret 
141:  if  SE 1 3>0;90>SE33;ret 
142:  2703SC33; ret 

143:  “one  OP":  * 

144:  for  1-1  to  N; if  NEI3«0;gto  148 
145:  prt  "0P",I,“  REPORTING" ; spe  2 

146:  dsp  "enter  distance  to  target,  OP"  ,  I ;  ent  ,  rl 5; I 3L 
147:  prt  "dist.  to  target ", r 1 5 ; spe 
148:  next  I 

149:  for  M-1  to  3; PEL , N3 3QEN3 ; next  N 

150:  for  1-1  to  N; PE  1 , 1 3-QE 1 3 3PC 1 , 1 3 ; PE  1 , 23-QC2 3 >P£ 1 , 2 3 
151 :  PEI,33-QE33>PEI,33 
152:  next  I 

153:  A£  1 , 1 3 )A£L , 1 3 ; AC  1 ,23 38 EL, 23 

154:  r 1 5cos< abs< ACL, 23 )  ))r 1 6; if  ACL,23>0;gto  156 

155:  PEL, 33-r 1 6tan<  abs< ACL, 23  >>>Z; gto  157 

156:  PEL, 33+r 16tan<  abs<  ACL, 23  3)  3Z 

157:  r16sin<ACL, 13  >3X;r16cos< ACL, 1 3  >>Y 

158:  for  1-1  to  N;if  MCI3*0;gto  167 

159:  X-PCI, 1 338C1 3 j Y-PC I , 23 3SC23 j gsb  "atan2" 

160:  St 33*1 7 . 77777778JAE 1,13 

161:  Z-PCI.333SC1 3 ; r 1 63SC23 / gsb  "atan2" 

162:  if  8C33  >90 j  gto  164 
<63:  SC33  >A£ 1,23; gto  165 
164:  SC33-3603AC 1,23 
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165: 
<66: 
167: 
I  68 : 
1  69 1 
170: 
171  : 
1  72 1 
173: 
174  s 
175: 
1  76  s 

1  77: 
178: 
179: 
180: 
181  : 
182: 
183: 
184: 
185: 
186: 
187: 
188: 
189: 
190: 
191  : 
192: 
193: 
194: 
195: 
196: 
197: 
198: 
199: 
200: 
201  : 
202: 
203: 

2  04: 
205: 
2  06: 
207: 
208: 
209: 
210: 
211  : 
212: 
213: 
214: 
215: 
216: 
217: 
218: 
219: 


prt  "sat  azimuth  OP" , I , "at" , AC  1 , 1 3 ; spe 

prt  "sat  vart.  ang.  OP" , I , "at ■ , AC  1 , 21*1 7 . 77777778 ; spe 

next  I 

*pc 

Idf  16,P£-3 

sfg  7;ina  M:0;gto  31 

■OP"  : 

prt  ■  OP  COORDINATES"; spe 
for  1-1  to  N 

fxd  Ojprt  "QP*,Ijfxd  Ijprt  "east i ng” , PC  1 , 1 3 ; prt  "nor  thing" , PC  I , 23 

prt  "height" , PC  1 , 33 ; spe  jnext  I 

*pc 

gto  24 

"TARGET" :prt  "FLASH  RANGING  TARGET  LISTING" ; spe  ;0>SC13 
for  1-1  to  int<G/M0>+1 
if  1  0<  1-1  X-G:  1-1  >L 
next  I 

fxd  0;for  I*10<L+1)  to  11-G+10L  by  -1;prt  "target" , 1 0< L+ 1  >- 1+ 1 
spe  ;prt  "time" , ZC I , 43 

spe  jprt  "casting" , ZC I , 1 3 ; spe  ;prt  "northing" , 2t I , 23 ; spe 
prt  "height" , ZC I , 33 ; spe  3 
SC  t  3  + 1 >SC1 3 

if  SC  1 3aod1 0>0; gto  189 

ent  "next  10  targets  ?",Q*;if  Q*="-"jgto  31 
next  I 

dsp  "  ALL  TARGETS  LISTED  M!  wa  i  t  3000;gto  31 

" INDEX" : ref  17,G;rcf  18,ZC*3 

prt  "TO  CALL  DESIRED  PROGRAM"; spe 

prt  "ENTER  PROGRAM  NUMBER”; spe 

prt  "PRESS  CONTINUE" ; spe 

prt  "1  SOUND  RANGING" 

prt  "2  SOUND  ON  SOUND" 

prt  "3  VISUAL  MET." 

prt  "4  FLASH  RANGING" 

prt  “5  FLASH  ADJT." 

prt  "6  LASER  RFDR . " 

prt  “7  LASER  RFDR.  ADJUSTMENT” 

prt  "8  LASER  RFDR.  TRILATERATION" 

spe  2 

ent  "enter  program  number ",N 

if  N-1 ; ldp  2 

if  H-2; ldp  8 

if  N-3;ldp  12 

if  N-4) ldp  14 

if  N-5; ldp  19 

if  N-6: ldp  22 

if  N-7; ldp  27 

if  N-8; ldp  30 

"EDIT":ent  "is  input  data  correct  ?",Q< 

if  Q#»"+"jgto  244 

prt  "  INPUT  EDIT"; spe 

ina  JiO 

r3)r31 jr4)r33 

for  I-N  to  1  by  -Ijif  MCI 3-0; gto  220 
ACr31 , 1 13JCI, 1 3;r3»-1 3r31 
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220:  next  I 

221:  for  I*M  to  1  by  -Ijif  NCI3*0;gto  223 
222:  ACr33,23)JCI,23; r33-l >r33 
223:  next  I 

224:  ent  "which  OP  is  in  error  ?"/r30 
225:  prt  “OP",r30 

226:  dsp  "enter  correct  azieuth, OP" , r30j ent  "",r32;prt  "aziauth*,r32 
227:  r32/1 7. 77777778) JCr 30, 1 3  j 1 )HCr303 

228:  dsp  "is  vert.  ang.  avai lable, OP", r30, "  ?";ent  "",0# 

229:  if  Q**"-"j0)NCr303)JCr30,23jprt  "  *";gto  235 

230:  if  «*•"♦" jgto  232 
23 1  :  vaKQi >>r32; gto  233 

232:  dsp  "enter  correct  vert,  ang . , OP" , r30 j ent  u",r32 

233:  prt  "vert,  ang . “ , r32j spe 

234:  r32/t 7 . 77777778) JCr30 , 23 ; 1 )NCr303 

235:  ent  “is  any  other  OP  in  error  ?“  ,Q4 

236:  if  Q$*"*" ) r3)r31 j  gto  224 

237:  0)r3 ; for  1*1  to  N; 0)AC I , 1 3 ) if  HEI3-0igto  239 

238:  r3+l >r3; JCI , 1))ACr3, 1 3 ; PC  1 , 1 3-r  1 )GCr33 ;PCI,23~r2)YCr33 

239:  next  I 

240:  0)r4j  for  1*1  to  Nj0)AEI,23;if  NtI3*0;gto  242 

241:  r4+1 >r4j JC I , 23 >ACr4, 23 

242:  next  I 

243 :  sfg  1 i gto  57 

244:  ret 
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FLASH  ADJUSTMENT 
PROGRAM 
FILE  18 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  FLASH  ADJUSTMENT  PROGRAM 

FILE  19 

f0:  *beep ;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

fx:  *beep;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

f2:  *beep ;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

f3:  *beep;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  18 

f4:  *beep;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

f5:  *beep ;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

f6:  *cont  "OP" 

f7:  *beep;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

f8:  *beep ;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

f9:  *beep ;  dsp  "WRONG  KEY**PRESS  (continue)";  gto  15 

f1Q:  *dsp  "LOCATION  MODE  INITIATED";  ldpl4 

fu:  *cont  "INDEX" 
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0 :  din  PC6 , 3 3 , AC6 , 2 3 , Q*C 7 3 , M£ 6] , YC6  3 , G t 63 , BC6 3 , C C 1 03 , EC2, 23 , OC2  3 , FC23 
1:  din  XC1 0,53,TC63,DC63,UC1 03 , VC  1 0 3 , ZC 1  00,43 ,SC32,QC33,RC1 03 
2;  din  NC63 , I t303 , JC6, 23 

3:  dsp  •  FLASH  AD JUSTHENT" ; ldk  20;wait  1000 

4 :  deg; OJA 

5:  . 1 >ICt3; .2J1C23; .6J1C33; 1)2243; 1 .  5)1 C53 ; 2 . 2) 1 C63 ; 3)1 C73 ;3.9>IC33 
6;  5>IE93;6.2>IC10);7.4>IC1 13;8.9>IC123; 1 0 . 4  J I C 1 3  3 ;  12.  1 J I C 1 4  3  j  t  3 . 9  )  I C 1 5  3 
7:  1 5 . 8)1 C 1 63; 1 7 . 8)1 C 1 73 ; 1 9 . 9)1 C  1 8) ; 22 . 2)1 C  1 93 ; 24 . 6 )2  £203 ; 27 . 1 )1 C21 3 
8 :  29.8)IC223;32.6)IC233;35.5)IC243;38.5)IC253;41 , 6)1 C263 ; 44 . 9 J I C27 3 
9 i  48.3)1 C283; 51 . 8)1 C293 ; 55 . 4)2 C303 
10:  inn  2 i 0 

11;  «nt  "enter  number  of  flesh  0Ps",N;rd»  MEN3 
12:  rdn  NCN3 

13:  ent  "ere  OP  coordinates  stored  ?",Q4 
14:  if  Q*»"-";gto  17 
15:  ldf  21 ,  PC*3 
16:  gto  28 

17:  fxd  0;for  2*1  to  N;dsp  "enter  easting , OP" , I ; ent  "“,PC1,13 
18:  dsp  "enter  northing, OP" , 1 ; ent  "",PC2,23 
19:  dsp  "enter  height , OP" , 1 ; ent  *",PC1,33 
20:  next  I; gto  27 

21:  ent  “ere' OP  coordinates  correct  ?",G4;if  Qs-"+";gto  28 
22:  ent  "which  O.P.  is  in  error  ?",0 

23:  fxd  0;dsp  "enter  correct  east ing, 0 . P .", 0; ent  "H,PC0,13 

24:  dsp  "enter  correct  northing, 0 . P 0; ent  "",PCO,23 

25:  dsp  "enter  correct  height , 0 . P Q;ent  "",P£0,33 

26:  ent  "are  other  coordinates  in  error  ?",Q6;if  Q$*"+ " ; gto  22 

27:  ref  16,PC*3;rcf  21,PC*3 

28:  for  1-1  to  N; PC  2 , 1 3 )YC I  3 ; PC  2 , 23 >GC 2 3 ; next  2 

29:  0)r 1 ; 0)r2; for  1-1  to  N ; r 1 +YC 2 3 )r 1 ; r2+GC 1 3 )r2 j next  1 ; r 1 /N)r 1 ; r2/N)r2 
30:  for  1-1  to  N; PC  1 , 1 3-r 1 )GC I  3 ; PC  1 , 23-r2)VC I  3 j next  1 
31 :  if  f lg7;gto  36 
32:  gto  35; if  A-0;gto  33 

33:  fxd  0; dsp  "  READY  FOR  TARGET  DATA  ?";stp 
34:  gto  36 

35:  fxd  Ojdsp  "  READY  FOR  ADJUSTMENT  DATA  ?";stp 
36:  ina  MtO 
37:  ina  NiO 
38:  fxd  0 

39:  0)r3; 0)r4 j  for  1-1  to  Njdsp  "is  data  available, 0P",1 , "  ?";ent  "",Q* 
40:  if  Q#-"-";gto  54 
41:  if  Q«-*+";gto  43 

42:  1 )MCI3;r3+1 )r3; val< Qf VI 7 . 77777778)ACr3, 1 3;prt  val<Q*>;gto  45 

43:  1 )MC 1 3 ; r3+MC 1 3 )r3;dsp  "enter  aziauthtmi Is >,0P" , 2 

44:  ent  ACr3, 1 3;prt  ACr3, 1 3 ; ACr3, 13/1 7 . 7777778)ACr3, 1 3 

45:  dsp  "is  vert,  angle  available,OP", 2, "?”;cnt  "",Q4 

46:  if  Q*-"-";gto  53 

47:  if  0#-"+";gto  49 

48:  1 )NC  2  3 ; r4+1 )r4; val<  Q$  VI 7 . 77777778 )ACr4, 23 ; prt  val<Q*>;spc  ;gto  52 
49:  1 )NC 13; r4+1 )r4 

50:  dsp  "enter  vertical  angle<mils),OP”, I;ent  "u,ACr4,23 
51:  prt  ACr4, 23 ; spe  ; ACr4, 23/1 7 , 77777778)ACr4, 23 
52:  GC13)GCr33;YCI3)YCr33; gto  56 
53:  G£I3)GCr33;YCI3)YEr33;gto  55 
54:  prt  "  *" 
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55 i  prt  "  *";spc 

56 i  next  Ijspc 
57:  if  flg2;cfg  2;gto  59 
58 i  gsb  "EDIT* 

59:  if  r4«0;dsp  "ERROR l -MO  HEIGHT  DATA";w*it  5000; gto  39 
60:  if  r 382; gto  62 

6 1 :  dsp  "UARHINC-ONLY  TWO  OPs  REPORTING ! “ ; w*it  3000; gto  63 
62:  if  r3*1;gto  “on*  OP" 

63 1  for  I-t  to  r3;t*n<ACI,  13  >3DC I  3 ; GC 1 3-DC I 3YC 1 3 >BC 1 3 
64:  next  I 

65 1  r33CC13;r3-1>CC23;0>M 
66:  for  1-1  to  CC23;I+1>K 
67:  for  J-K  to  CCU 
68:  H+1 >H 

69:  t  )EC1 ,  13;-DCI3>EC1  ,23;  1  3EC 2, 1 3; -DC J3 3EC2, 23 ; BC I  3 >FC  I  3  jBC  J33FC23 
70:  inv  £JE;«*t  EF30 ; 0C1 3+r 1 >XCH, 13 3XCH, 4 3 ; OC23+r2 >XCM , 23 3XC H, 53 
71 :  next  J 
72:  next  I 

73:  r3<r3-1 )/2)CC33 ; CC33-1 >CC43 

74:  in*  V : -9999999; for  1-1  to  CC33 ; XL  1 , 1 3 3VLI3 ; next  I;g*b  "Median" 
75:  CC1 03>rf  0 

76:  in*  V : -9999999 ; for  1-1  to  CC33 ; XC 1 , 23 3VC I  3 ; next  I;gsb  "Median" 
77:  CC 1 03>r1 1 
78:  gsb  "height" 

79:  in*  V : -9999999; for  1-1  to  CC33 ; XC 1 , 33  JVC  I  3 ; next  I;gsb  "Median" 

80:  CC1 033r14;gto  96 

81 :  "aedian": in*  Ui-999999 

82:  for  J-1  to  CC43 

93:  for  K-J  to  CC33 ; VCK3 >UCK3 ; next  K 

84:  *ax<  UC*3  >>r6 

85:  if  VCJ3-r6;gto  90 

86:  for  Z-J  to  CC33;if  r6*VCZ3;gto  88 

87:  Z3L 

88:  next  Z 

89:  VC  J3  >r8; r6>VC  J3 ; r8>VCL 3 
90:  -9999999 JUC J3 
91 :  next  J 

92:  if  C 1 3 3*od2- 0 ; gto  94 
93:  int< CC33/2 )+1 )r6; VCr6  3 3CC 1 03 ; ret 
94:  CC33/'2>r6;r6+1)CC53;r6)CC63 
95:  < VCCC633+VCCC533 >/2>CC 1 03 ; ret 
96:  if  A»1;gto  "fl«shr*g" 

97:  fxd  0 ; prt  "  FLASH  RANGING  TARGET  " ; spe 

98:  fxd  t;prt  "eesting" , r 1 0; spe 
99:  prt  "northing" , rl 1 ; spe 
100:  prt  "height" ,r14; spe 

101:  for  1-1  to  H;S<<XCI,43-r1 0>*2+<XCI,53-r1 1 >*2 >>RI I  3 ; next  I 

102:  prt  "spre*d",*ax<RC*3 >;spc  2 

1 03 :  in*  B : 0; in*  R i 0 

104:  rl 0>r15;ri 1 >r 16; r14>r1 7 

>05:  cfg  2<ldf  21,Pt*3;in*  M:0;1)A;gto  28 

106:  "height": for  1-1  to  N 

107:  PCI,13)XCI,13;PCI,23>XCI,23;PCI,333XCI,33 
108:  next  I 

109:  0>r4; for  1-1  to  N;if  NCI3«0;gto  111 
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110:  r4+1  >r4;XCI,  1 33XCr4,  13  { XU  , 23>XCr4, 23 ; XC  1 , 33  >XCr4 , 31 

tit:  next  I 

112:  for  1*1  to  r4 

113:  N<  <  rl 0-XC 1,13  >*2+<  M 1-XCI,23)‘2>>XEl,2];if  ACI,23>0;gto  113 
114:  XCI,33-XCI,23tan<-ACI,23 )>XCI,33 ;gto  116 
113:  XCI,33*X£I , 23tan( AC  1 , 23 >3XCI,33 
116:  n«xt  I 

117:  for  1-1  to  r4;  int< XC  1  , 23/1 000>>r28; XC I , 23/1  000-r28>r29 
1 18:  if  r 28*0; gto  122 
119:  if  r28>0; gto  121 
1  120:  XCI,31+IC303)XCI,33; gto  123 

121:  < ICr28+13-ICr283  >r29+l Cr283+XC I , 33 3XC I , 33 ; gto  123 
122:  I C 1 3r29*XC I,333XCI,33 
123:  n«xt  I 
124:  r«t 

125:  "atan2":if  SC23*0;gto  130 

126:  atn<  SCI 3/SC23  >>SC33 

127:  if  SC23<0;SC33+180>SC33;ret 

128:  if  SC33>0;ret 

129:  SC31+3603SC33 ; ret 

130:  if  SC11*0;0)SC33; ret 

131:  if  SC  1 3 >0; 903SC33 ; ret 

132:  2703SC33 ;  ret 

133:  "on*  OP": 

134:  for  I«1  to  N;  if  HCI3*0;gto  138 
135:  prt  “OP" , I ,  "  REPORTING" ; spe  2 

136:  dsp  "enter  distance  to  target/ OP", I ; ent  "u,rl5;I)L 
137:  prt  "dist.  to  target" , rl 3; spe 
138:  next  I 

139:  for  M«1  to  3 ; PCL , M3 3QCH3 ; next  N 

140:  for  1-1  to  N; PC  1 , 1 3-GC 1 3 3PC 1 , 1 3 ; PC  1 , 23-QC23 >PC 1 , 23 
141 :  PEI,33-QC33>PCI,33 
142:  next  I 

143:  AC1 , 1 33ACL, 1 3;AC1 ,23>ACL,23 

144:  r 1 5cos<  abs<  ACL,23>>>r16;if  ACL,23>0;gto  146 

145:  PEL, 33-r16tan<  abs<  AIL, 2  3  ) )>2; gto  147 

146:  PCL, 33+r16tan<  abs< ACL, 21 >  >3Z 

147:  r 1 6sin<  ACL, 1 3  >>X;r16cos< ACL, 1 3  >>V 

148:  for  1-1  to  N;if  MCI3#0;gto  157 

149:  X-PCI, 133SC13 ; Y-PC I ,23 3SC23 ;g*b  "atan2" 

150:  SC33*1 7 . 777777783AC I , 1 3 

151:  Z-PCI,33>SC1 3 ; rl 63SC23 ; gsb  "afcan2" 

152)  if  8C33 >90; gto  154 
133:  SC33 3AC 1,23 ;gto  155 
154:  SC33-3603ACI.23 

155:  prt  "set  aziauth,OP", I , “  at" , ACI , 1 3 ; spe 

136:  prt  "set  vert,  ang.,  OP", I,"  at  ",  AC  1 , 23*1 7 . 77777778; spe 

157:  next  I; spe 

158:  ldf  21 , PC*3 

159:  sfg  7;ina  N:0;gto  28 

160:  "flashreg") 

161)  prt  " AO  JUSTHENT " , G+ 1 ; spe 

162:  if  r15-rl 0<0;gto  164 

163:  prt  "right", r15-r10;spc  ;gto  165 

164:  prt  *  left ", abs< rl 5-rl 0 >; spe 
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1 65 1 
*66 1 
*67: 
(69: 
(69: 
*70: 
*7*  : 
*72: 
173: 
174: 
1?3t 
*76: 
177: 
178: 
*79: 
180: 


if  r16-r1 1<0;gto  167 

prt  "add" ,r 16-rl 1 jspc  jgto  168 

prt  "drop",abs<r16-r1 1 >;spc 

if  r 1 7-r14<  0 ;  gto  170 

prt  "up",r1 7-r14;spe  jgto  171 

prt  "down",abs<r17-r14>;spc 

for  1»1  to  H;S<<XtI/43-r10i‘2+<XCI,53-r11 >‘2>>RtI3;n«xt  I 
fxd  Ijprt  "spread" , eax< RC-J >; *pc  2;  in*  R:0 
if  S<<r16-r11 >‘2+< r 15-r 1 0 >A2 >> I  00; gto  176 
prt  -  FIRE  FOR  EFFECT"; spc  2 

in*  RtOjgto  178 

ent  "*noth«r  adjusting  round  ?",Q0 
if  fl8-"  +  ";G+nG;  1  )A;gto  179 
“EXIT* : 0>A; 0>C 

cfg  2;ldf  21,PC*3;ina  HsOjcfg  Ijgto  15 
"OP“ : 


181 

182 

193 

184 

185 

186 
187 
(88: 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 
200: 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
219 


prt 
for 
fxd 
prt 
spc 
gto  21 
"INDEX" i 


"OP  COORDINATES"; spc 
1-1  to  N 

Ojprt  "OP",I;fxd  Ijprt  "easting* ,PCI ,  1  3  jprt  "northing",? 
"height", PCI, 33;spc  jnext  I 


TO  CALL  DESIRED  PROGRAM"; spc 
ENTER  PROGRAM  NUMBER ";spc 

PRESS  CONTINUE"; spc 


ADJUSTMENT" 
TRILATERATION" ; spc  2 


prt 
prt 
prt 
prt 
prt 
prt 
prt 
prt 
prt 
prt 
prt 
ont 
if  N 

if  N-2; ldp 
if  N-3; ldp 
if  H«4;ldp 
if  N-3; ldp 
if  N-6;Idp  22 
if  N-7; ldp  27 
if  N-8; ldp  30 
wait  1000 
wait  1000 

"EDIT" lent  "is  input  data  correct  ?*,Q0 

if  80-"*";gto  240 

prt  "  INPUT  EDIT"; spc 

ina  JiO 

r3>r31 ;r4>r33 

for  1-N  to  1  by  -1;if  HI  1 3-0; gto  217 
ACr31 , 1 J>JC I , 1 1 ;r3l-1 >r31 
nasi  I 

for  I-N  to  1  by  -1;if  Nt 13-0; gto  220 
ACr33,23>Jtl,23;r33-1>r33 


SOUND  RANGING" 

SOUND  ON  SOUND" 

VISUAL  MET." 

FLA8H  RANGING” 

FLASH  ADJT." 

LA8ER  RFDR . ■ 

LASER  RFDR. 

LA8ER  RFDR. 
enter  prograo  nuaber",N 
I; ldp  2 
8 
12 
14 
19 
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220:  next  I 

221:  ent  “which  OP  is  in  error  ?",r30;prt  "OP",r30 

222:  dsp  "enter  correct  azinuth , 0P“ , r30; ent  “",r32;prt  "azieuth" , r32 
223:  r32/1 7. 777777783 J£r30, 1 3; 1 3M£r303 

224:  dsp  "is  vert.  ang.  evai lab le, OP" , r30 , ; ent  “",Q* 

225:  if  03N£r303 3 JCr30 , 2 3 jgto  23 t 

226:  if  Q*-"«-"jgto  228 
227:  val<  Q*  >3r32 ; gto  229 

228:  dsp  “enter  correct  vert,  ang . , OP" , r30; ent  “",r32 

229:  prt  "vert,  ang . " , r32 i spe 

230:  r 32/17. 7777777 83J£r30,23j 1 3NEr303 

231:  ent  "is  any  other  OP  in  error  ?",Q* 

232:  if  Q#«"+",r3>r31 ;gto  221 

233:  0>r3  j  for  1-1  to  N> 03AE I , 1 3 j if  H£I3-0;gto  235 

234:  r3+1)r3; JCI, 13 >ACr3, 1 3 j PC  I , U-rl 3GCr33 jPC 1 , 23-r2>YCr33 

235:  next  I 

236:  0>r4;  for  1-1  to  N;  03A£  1 , 23  i  if  N£I3«0;gto  238 

237:  r4+1 3r4;J[I,2]3ACr4,23 

238:  next  I 

239:  sfg  2; gto  59 

240:  ret 
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LISTING 


LASER  RANGEFINDER 
PROGRAM 
FILE  21 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  LASER  RANGEFINDER  PROGRAM 

FILE  22 

f0:  *beep ;  dsp  “WRONG  KEY***PRESS  (continue)";  gto  22 

f j :  *beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  22 

f2:  *beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  22 

f3:  *beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  22 

f4:  *beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  22 

f5:  *beep ;  dsp  "WRONG  KEY***PRE$S  (continue)";  gto  22 

f6:  *cont  "LOP" 

f7:  *dsp  "TRILATERATION  PROGRAM  INITIATED";  ref  25,  G; 

ref  26,  U[*];  ldp30 

f8:  *cont  "TARGET" 

fg:  *dsp  "TRILATERATION  PROGRAM  INITIATED”;  ref  25,  G; 

ref  26,  U[*] ;  ldp30 

f10:  *dsp  "ADJUSTMENT  MODE  INITIATED”;  ref  25,  G; 

ref  26,  U[*];  ldp27 

fn:  *cont  "INDEX” 


J 
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0:  di a  P£6, 33, QtCI 3,UC1 00,43, SC33 
1 :  ldk  23 
2:  0>G;deg 

3:  dap  "  LASER  RAMGEFINOER" ; wai t  3000 

4:  «nt  "are  earlier  targets  stored  ?",Q#;if  Q**"*M;gto  6 
5:  ina  U:0;0)G;gto  7 
6:  ldf  25,  G; ldf  26,U[*3 

7 s  ent  "total  nuaber  of  laser  OP's  ?“,N 

S:  ent  "are  OP  coordinates  stored  ?",0t;if  0$*“-“ ;gto  10 
9 i  ldf  24,PC-3jgto  22 
10:  fxd  0;for  1*1  to  N 

11:  dsp  “enter  east ing, OP  * , 1 ; ent  "“,PC2,13 
12:  dsp  "enter  northing , OP" , I j ent  "",PCI,23 
13:  dsp  “enter  hei ght , OP " , I ; ent  "".PCI, 33 
14:  next  I / gto  21 

15:  ent  "are  OP  coordinates  in  error  ?",QS;if  Q$*"-M;gto  22 
16:  ent  "which  OP  is  in  error  ?“,0 

17:  fxd  0;dsp  "enter  correct  easting  0P",0;ent  ,,M,PtO,13 

18:  dsp  "enter  correct  northing  0P",0;ent  "",PIO,23 

19:  dsp  “enter  correct  height  0P*,0;ent  "",PC0,31 

20:  ent  “are  other  coordinates  in  error  ?“,Q*;if  QS*"+";gto  16 

21 :  ref  24, Pt  +  3 

22:  ent  “which  OP  is  reporting  ?",r 0 
23:  fxd  0; prt  "OP",r0jspc 

24:  fxd  Ojdsp  "enter  range  to  target , OP* , r 0; ent  "M,r20 
25:  fxd  1 ; prt  "range", r20 

26:  fxd  Oidsp  “enter  azimuth  to  target , OP" , rO; ent  M",r18 
27:  fxd  1 ; prt  "azimuth" , rl 8 

28:  fxd  0; dsp  "enter  vert.  ang.  to  target , OP" , r Oj ent  B“,r19 
29:  fxd  1 j  prt  "vert,  ang . " , r 1 9 j spe  2 
30:  r 1 9/1 7 . 7777 77 778 3r1 9 

31:  ent  "is  input  data  correct  ?",Q*;if  Q$*"-"jgto  24 
32:  if  r 1 9>-0 ;  gto  34 
33:  -r20sin< abs< r 1 9 > >>r21 ; gto  35 
34:  r20sin<r19)>r21 

35 :  r20cos< abs<  r 1 9  >  >sin<  r 1 8/ 1 7 . 77777778  >3r22 

36:  r20cos<abs<r19>>cos<r18/17.777777S  >3r23 

37:  r22+PCr0, 1 3 3r22; r23+P£r0 , 23 >r23; r2 t +PCr 0, 33 )r21 

38:  fxd  0; prt  "LASER  RFDR .  TARGET" , G+ 1 ; spe 

39:  fxd  1 ; prt  "east ing" , r22 

40:  prt  "northing", r23 

41:  prt  "height", r21 

42:  G+13G 

43:  ent  "enter  day, time  of  day+*as  0821 00", H 
44:  fxd  0;prt  "ti*e",H;spc  2 

45:  if  Gmodl 00*0 j  dsp  "100  TARGETS  RECORDED  1  !!”; wa it  4000 
46:  Gmodl 0)r1 Oj if  r 1 Omodl 0*0; gto  49 
47:  1 1 -r 1 0)r 1 0 

48:  r22)UCr1 0, 1 3;r23>U£r1 0,23;r21 JUCrl 0,33;H>UCr1 0,43;gto  22 

49:  r22 >UC 1 , 13 j r23>UC 1 , 2 3 ; r2 1 3UC1 , 33 ; H>UE 1 , 43 

50:  for  1-90  to  1  by  -1 ; UC I , 1 3 >UC 1+1 0, 1 3 ; Ut I , 23 3UCI+1 0 , 23 

51:  U£I,33)UCI+10,33;UCI,43>UCI+10,43; next  1 

52:  ref  25,G>rcf  26,Ut*3 

53:  for  1-1  to  1 0 j 03UC I , 1 3 >UC I . 23 >UCI , 33 3UC I , 4 3 j next  I 

54:  gto  22 
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55 :  -LOP" i 

56 i  prt  -LASER  RFDR .  OP  COORDINATES" ; spe 
57:  for  1*1  to  N 

58 1  fxd  Ojprt  "OP",I;fxd  Ijprt  "east ing" , P E I , 1 3 ; prt  "northing", PC  1,23 

59*.  prt  "height", PEI, 33;spc 

60:  next  I /spe  jgto  15 

61 !  -TARGET" s 1 >L 

62:  prt  -LASER  RFDR," 

63 i  prt  -TARGET  LIST";spc  ;0>S 
64s  for  1*1  to  int<G710>+1 
65 ;  if  10<I-1  ><*G/ 1-1 >L 
66 ;  next  I 

67 i  fxd  0;for  I*10<L+1>  to  11-G+10L  by  -Ijprt  " target “ , 1 0< L+ 1 >- I + 1 
68 i  prt  "tine" , UE I , 43 

69j  prt  "easting" ,UE I , 1 3 ; prt  "northing- , UC I , 23 
70i  prt  "height" , UC I , 33 ; spe  2 
71 i  S+13S 

72i  if  Smodl 0>0; gto  74 

73:  ent  "next  10  targets  ?" , QO/if  Q0*“-"/gto  22 
74  s  next  I 

75.-  dsp  “  ALL  TARGETS  LISTED !!!";  wax  t  3000/gto  22 

76 i  “atan2"iif  SE23*0;gto  81 

77:  atn<  SC13/$[23)3SE33 

78 i  if  SE23<0;SE3]+180>SC33;ret 

79i  if  SE33  >0/ ret 

80!  SE33+3603SE33 ;ret 

81 !  if  SI13-0/0>SC33jret 

82 i  if  SE13>0/90)SE33; ret 

83 i  2703SE33 ; ret 

84!  "INDEX":rcf  25,G;rcf  26,UC*3 

85 i  prt  "TO  CALL  DESIRED  PROGRAM* ;spc 

86 i  prt  "ENTER  PROGRAM  NUMBER" ; spe 

87)  prt  "PRESS  CONTINUE" ; spe 

86;  prt  "1  SOUND  RANGING- 

89!  prt  "2  SOUND  ON  SOUND" 

90!  prt  "3  VISUAL  MET . ■ 

91 i  prt  -4  FLASH  RANGING" 

92 i  prt  "5  FLASH  ADJT." 

93 i  prt  -6  LASER  RFDR . " 

94!  prt  "7  LASER  RFDR.  ADJUSTMENT" 

95 !  prt  "8  LASER  RFDR.  TR I LATER AT I ON" / spe  2 

96 i  ent  "enter  program  number ",N 

97!  if  N-ljldp  2 

98 i  if  N*2; ldp  8 

99 i  if  H»3j ldp  12 

IQOi  if  N*4| ldp  14 

101!  if  N*5/ ldp  19 

102i  if  N*6 ; 2 dp  22 

103 i  if  N*7  / ldp  27 

104t  if  N*8  / ldp  30 

1 09 1  end 
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LISTING 


LASER  RANGEFINDER 
ADJUSTMENT  PROGRAM 
FILE  26 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  LASER  RANGEFINDFR 

ADJUSTMENT  PROGRAM 

FILE  27 

f0:  *beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  "EXIT" 

*beep;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  "EXIT" 
f2:  *beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  "EXIT" 

f3;  *beep;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  "EXIT" 

f4:  *beep ;  dsp  "WRONG  KEY***PRE$S  (continue)";  gto  "EXIT" 

f5:  *beep;  dsp  "WRONG  K£Y***PRESS  (continue)";  gto  "EXIT" 

f6:  *dsp  "NEW  OP?";  0*r24;  gto  4 

f7:  *dsp  " TRILATERATION  PROGRAM  INITIATED";  ldp30 

f8;  *beep ;  dsp  "WRONG  KEY***FRESS  (continue)";  gto  "EXIT" 

f9:  *beep;  dsp  "WRONG  KEY***PRESS  (continue)";  qto  "EXIT" 

f10:  *dsp  "LOCATION  MODE  INITIATED";  ldp22 

fH:  *eont  "INDEX" 
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0;  dia  PC6, 33 , Q$C 1 3 
1 t  d«g; ldk  28 
2 i  0)p24 

3:  dsp  *  LASER  RANGEFINDER  ADJUSTMENT*  ;  wait  2000 
4i  fxd  Ojant  “which  OP  is  raporting  ?",r 0 
5:  prfe  "OP* , rO; spc 

6 1  dsp  "  READY  FOR  TARGET  DATA  ?";stp 
7 i  prt  "targat  data"; gto  10 

8!  fxd  0 ; dsp  “  READY  FOR  ADJUSTMENT  DATA  ?")stp 
9 i  prt  "adjustaant  data" 

10:  fxd  0 ; dsp  “sntar  rang*  to  targat , OP" , rO, "?" ;ant  "“,r2G 
11:  fxd  Ijprt  "ranga",r20 

12:  fxd  0;dsp  "sntar  aziauth  to  targat ,  OP* , r 0, ; ant  " " , r 1 8 
13:  fxd  1;prt  "aziauth" , r 1 8 

14i  fxd  0;dsp  "antar  vart.  ang.to  targat, 0P“ , rO, ant  "  "  , r 
15 i  fxd  1;prt  "vart.  ang . " , r t 9 ; spc 
16:  r19/17 . 777777778 >r1 9 

17:  ant  "is  input  data  correct  ?",Q#;if  0*»"-";gto  10 
18:  if  r19>«0;gto  20 
19:  -r20sin< abs< r 1 9 > )3r21 ; gto  21 
20:  r20sin<r!9)Jr21 

21 :  r20cos<  abs< r 1 9  >  >sin<  r 1 8/ 1 7 . 77777778  )>r22 

22 :  r20cos< abs<  r 1 9 ) )cos<  r 1 87 1 7 . 7777778  >>r23 

23:  r22+PCr 0, 1 3 >r22; r23+PCr 0, 23 >r23; r2 1 +P£r 0. 3 3 >r2 1 

24:  if  r24* 1 ; gto  27 

25:  r22>r25;r23>r26;r213r27 

26:  1 >r24 ;  gto  8 

27:  fxd  0) prt  " AD JUSTMENT" , 0+ 1 ; spc 

28:  if  r25-r22< 0; gto  30 

29:  prt  “right" ,r25-r22jspc  >gto  31 

30:  prt  "Iaft",r22-r25;spc 

31:  if  r26-r23< 0; gto  33 

32:  prt  "add",r26-r23;spc  jgto  34 

33:  prt  "drop" , r23-r26; spc 

34:  if  r21 -r27>0 ; gto  36 

35:  prt  "up" , r27-r21 ; spc  2; gto  37 

36:  prt  "down" , r21 -r27; spc  2 

37:  if  S<<r25-r22>‘2+<r26-r23>*2+<r27-r21  >‘2>>1 00;gto  39 
38:  prt  "FIRE  FOR  EFFECT";spc  2;  0>Q,-  0>r24;  gto  6 

39 i  ant  "anothar  adjusting  round  ?",Q* 

40:  if  Q#»"+" i 1 >r24  j  Q+ 1 }Q ; gto  8 
41:  0JQ j 0)r24 ; gto  6 
42:  "INDEX": 

43:  prt  "TO  CALL  DESIRED  PROGRAM"; spc 
44:  prt  "ENTER  PROGRAM  NUMBER"; spc 
45:  prt  "PRESS  CONTINUE" ; spc 
46:  prt  "1  SOUND  RANGING" 

47:  prt  "2  SOUND  ON  SOUND" 

48:  prt  “3  VISUAL  MET." 

49:  prt  "4  FLASH  RANGING" 

50:  prt  "5  FLASH  ADJT . * 

51:  prt  "6  LASER  RFDR . " 

52:  prt  "7  LASER  RFDR .  ADJUSTMENT" 

53:  prt  "8  LASER  RFDR.  TRILATERATION" ; spc  2 

54:  ant  "antar  prograa  nuabar",N 

*16388 
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55 !  if  N»1;ldp  2 
56s  if  N*2;ldp  8 
57i  if  N*3; ldp  12 
58i  if  N-4j ldp  14 
59i  if  N»5; ldp  19 
60s  if  N«6j ldp  22 
61 s  if  N-7; ldp  27 
62 :  if  N»8; ldp  30 
63:  gto  65 

64:  "EXIT" ! gto  8jif  r24«0jgto  6 

65:  «nd 

*6707 
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LISTING 


LASER  RANGEFINDER 
TRILATERATION  PROGRAM 
FILE  29 
PTAP  -  2 

LISTING  OF  SPECIAL  FUNCTION  KEYS  FOR  THE  LASER  RANGEFINDER 
TRILATERATION  PROGRAM 

FILE  30 

f0:  *beep;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  4 

*beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  4 

f2:  *beep;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  4 

f3:  *beep ;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  4 

f4:  *beep ;  dsp  "WRONG  KEY***PRE$S  (continue)";  gto  4 

f5:  *beep;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  4 

f6:  *cont  "LOP" 

f7:  *cont  "SVPT" 

f8:  *dsp  "L.  R.  ADJUSTMENT  MODE  INITIATED";  ref  24, 

P[*J;  ldp27 

f9:  *dsp  "L.  R.  LOCATION  MODE  INITIATED";  ref  24, 

PC*];  ldp22 

f10:  *beep;  dsp  "WRONG  KEY***PRESS  (continue)";  gto  4 

fn:  *cont  "INDEX" 


0:  dia  PC6,33,e$E13,GC2,33,RC23,F£23,E£2,23,OE23,XE23,SC33 
f :  dia  VE23,H£23 
2:  Id f  24,PE*3}ldk  31 

3:  dsp  "LASER  RANGEFINDER  TRILATERATION" { wait  3000 
4:  ant  "what  is  total  nuabcr  of  OPs  ?“,N 
5;  ant  "what  OP  is  to  ba  locatad  ?",r 2 
6:  fxd  0;prt  " locata" , r2;spc  2 

7:  fxd  Ojfor  1-1  to  2; dsp  "aasting< aatars  >, survay  pt . “ , I , "?" j ant  "“,011,13 
8:  dsp  “northing< aatars  >, survey  pt . “ , I , "?" ; ant  "",GCI,2J 
9:  dsp  "haight< aatars >, survay  pt . * , I , "?" j ant  " " , GC I , 33 ; naxt  I;gto  20 
10:  0)r1;dsp  “ara  survay  pt .  antr ia*  corract?" j  ant  “",Q* 

11:  if  Q0«"+";gto  20 

12:  dsp  "which  point  is  in  arror  ?"jent  "”,r0 

13:  fxd  Ojdsp  "antar  corract  casting, sv.  pt,",r0;ant  “”,GCr0,13 
14:  dsp  "corract  northing, sv.  pt . " , r0, "?" ; ant  "",GCrO,23 
15:  dsp  "antar  corract  height, sv.  pt . “ , r 0, "?" j ant  “",GCrO,33 
16:  if  rlafjgto  20 

17:  ant  "is  other  survay  pt .  in  arror  ?“,Q$;if  Q$»“-“;gto  20 
18:  if  r0-1 ;2>r0; 1 >r1 jgto  13 
19:  1 >r 0>r 1 j gto  13 

20:  ant  "rough  aziauth  to  survay  pt .  1  ?",A 

21:  fxd  0; prt  "rough  az .", A; A/1 7 . 77777778 )A; spe  2 

22:  fxd  0 

23:  for  1-1  to  2 

24:  fxd  Ojprt  "survay  pt.",I 

25:  dsp  "enter  range  to  survay  pt.",I;ent  M",RII3 
26:  fxd  Ijprt  "range" , RE I  3 j f xd  0 

27:  dsp  "antar  v.  ang.  to  sur .  pt . “ , I , ■?■ i wnt  "",VEIJ 

28:  fxd  1 ; prt  "vert,  ang . " , Vt I  3 ; Vt I  3/1 7 . 77777778>VC I  3 ; f xd  0;spc  2 

29:  ant  "is  input  data  corract  ?",Q*;if  Q*-"-";gto  22 

30:  RCI3cos< VCI1 >3RCI3;RCI3sin< VCI3  >>HtI3 

31 :  naxt  I 

32:  GE1 , 1 3+RE 1 3sin<  <  A+1 80 )aod36G )>XC 1 3 
33:  GC1 ,23+R£13cos<<A+180>aod366>>XC23 
34:  for  1-1  to  10 

35:  <X£1]-GE1,13>*2+<XE23-GE1  ,2])*2-RC13*2>FC13 
36:  <Xt1 3-GC2, 1  3 >*2+<XE23-GE2, 23 >*2-Rt23 *2>FE23 
37:  2< XC 1 3-GE 1,13  >>EC 1 , 1 3 j 2<  XE21-CC 1,23 »EE1 ,23 
38:  2<XE1]~G£2,n»EE2,Uj2<XE23-GE2,23  >3EE2,23 
39:  inv  ElEjaat  EF>0; ara  X-0>X;next  I 
40:  prt  "  COORDINATES" ; prt  "OP",r2;spc 
41:  fxd  Ijprt  "easting" , XE 1 3 
42:  prt  "northing”,XC23 

43:  prt  "height" ,. 5< GE 1 , 33-HE 1 3+GE2, 33-HE23 >> spe  2 
44:  prt  "*BACK  AZIMUTHS*" ; spe 

43:  -Xt13+Gf1,1338t13j -XE23+GC 1 , 23 )8t 23 ; gsb  "atan2" 

46:  fxd  0; prt  "survey  pt.  1 ",8E33*17.77777778;spc 
47:  -XE13+GE2,U>SE13j-XE23+GE2,23>SE23jgsb  "atan2" 

48:  prt  "survey  pt.  2",SE33*17.77777778;spc  2 

49:  XE!3>PEr2, 1  3  jX£23>PEr2, 23  j< GE  1 , 33-HE  1  3+GE2, 33-HE23  >/2>PEr*2, 33 
50:  ent  "is  another  OP  location  desired  ?",Q8 
51 :  if  08-"*"jgto  5 

52 :  dsp  ”  PROGRAM  COMPLETED  Mi")  stp 

53:  "LOP"! 

54:  prt  "  LASER  RPDR.  OP  COORDINATES"; spe 
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55 i  for  1-1  to  N 

56:  fxd  0;prt  "OP",I;fxd  1;prt  "costing11 ,  PC  1 ,  1  3  ;  prt  "northing"  , PC  1 , 23 
57:  prt  "height" , PI  1 , 33 ; spe  ;next  I;spc 
58 i  gto  5 

59:  "ct«n2":if  SC23-0;gto  64 

60:  *tn<SC  n/SC23  >>SC33 

61:  if  $C2J<0)8C3J*180>8C3J/rmt 

62:  if  3C33  >0;r«t 

63:  SC33+3603SC33; ret 

64:  if  SC13-0;0>SC33; ret 

65:  if  SC13>0;903SC33; ret 

66:  2703SC33  jret 

67:  "SVPT" »prt  "COORDINATES  OF  SURVEY  POINTS"; spe 

68:  for  1-1  to  2;fxd  Ojprt  “survey  point"/ I 

69:  fxd  1;prt  "easting" , GE I , 1 3 ; prt  "northing" , GC I , 23 

70:  prt  "height" / Ct I , 33 j spe  ;ncxt  I;spc 

71 :  gto  10 

72:  "INDEX": 

73:  prt  "TO  CALL  DESIRED  PROGRAM"; spe 
74:  prt  "ENTER  PROGRAM  NUMBER* ; spe 
75:  prt  "PRESS  CONTINUE" ; spe 
76:  prt  "1  80UND  RANGING" 

77:  prt  "2  SOUND  ON  SOUND" 

78:  prt  "3  VISUAL  MET." 

79:  prt  "4  FLASH  RANGING" 

80:  prt  "5  FLASH  ADJT . " 

81:  prt  "6  LASER  RFDR . " 

82:  prt  "7  LASER  RFDR.  ADJUSTMENT" 

83:  prt  “8  LASER  RFDR.  TRILATERATION" ; spe  2 

84:  ent  "enter  program  number ",N 

85:  if  N-1 j ldp  2 

86:  if  N-2;ldp  8 

87:  if  N-3; ldp  12 

88:  if  N-4; ldp  14 

89:  if  N-5; ldp  19 

90:  if  N-6; ldp  22 

91 :  if  N-7; ldp  27 

92:  if  N-8; ldp  30 

93 :  end 
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